
> ################
> #PSRM: Explaining Support for Redistribution: Social Insurance Systems and Fairness
> #
> #Experimental Data
> #Part I: Generate dataframe
> #
> #Verena Fetscher
> #July 2022
> ####################
> 
> 
> 
> ##########################
> #Import data
> ##########################
> 
> #Data files
> #Decision-making part
> #Name structure: year-month-day_hour-minute
> #1707xx sessions run in Heidelberg Lab, others in Mannheim Lab
> zTT<-zTreeTables(c("170330_1020.xls","170330_1126.xls","170403_0935.xls","170403_1144.xls","170425_1517.xls",
+                    "170425_1334.xls","170425_1152.xls","170704_0915.xls","170704_1110.xls",
+                    "170704_1251.xls"),c("globals","subjects","session","summary","contracts"))
reading  170330_1020.xls ...
Doing: summary 
Doing: globals 
Doing: subjects 
Doing: contracts 
Doing: session 
*** 170330_1126.xls is file 2 / 10 ***
reading  170330_1126.xls ...
Doing: summary 
Doing: globals 
Doing: subjects 
Doing: contracts 
Doing: session 
*** 170403_0935.xls is file 3 / 10 ***
reading  170403_0935.xls ...
Doing: summary 
Doing: globals 
Doing: subjects 
Doing: contracts 
Doing: session 
*** 170403_1144.xls is file 4 / 10 ***
reading  170403_1144.xls ...
Doing: summary 
Doing: globals 
Doing: subjects 
Doing: contracts 
Doing: session 
*** 170425_1517.xls is file 5 / 10 ***
reading  170425_1517.xls ...
Doing: summary 
Doing: globals 
Doing: subjects 
Doing: contracts 
Doing: session 
*** 170425_1334.xls is file 6 / 10 ***
reading  170425_1334.xls ...
Doing: summary 
Doing: globals 
Doing: subjects 
Doing: contracts 
Doing: session 
*** 170425_1152.xls is file 7 / 10 ***
reading  170425_1152.xls ...
Doing: summary 
Doing: globals 
Doing: subjects 
Doing: contracts 
Doing: session 
*** 170704_0915.xls is file 8 / 10 ***
reading  170704_0915.xls ...
Doing: summary 
Doing: globals 
Doing: subjects 
Doing: contracts 
Doing: session 
*** 170704_1110.xls is file 9 / 10 ***
reading  170704_1110.xls ...
Doing: summary 
Doing: globals 
Doing: subjects 
Doing: contracts 
Doing: session 
*** 170704_1251.xls is file 10 / 10 ***
reading  170704_1251.xls ...
Doing: summary 
Doing: globals 
Doing: subjects 
Doing: contracts 
Doing: session 

> session<-zTT$session

> names(session) <- c("Date"     ,                "Treatment"             ,   "Subject"                 ,
+                     "FinalProfit"    ,          "ShowUpFee"             ,   "ShowUpFeeInvested"       ,
+                     "MoneyAdded"    ,           "MoneyToPay"            ,   "MoneyEarned"             ,
+                     "total[1]"  ,               "total[2]"               ,  "total[3]"                ,
+                     "total[4]"  ,               "total[5]"               ,  "total[6]"                ,
+                     "total[7]"  ,               "total[8]"               ,  "total[9]"                ,
+                     "total[10]" ,               "total[11]"              ,  "total[12]"               ,
+                     "total[13]" ,               "total[14]"              ,  "total[15]"               ,
+                     "total[16]" ,               "EndowmentDictator[1]"   ,  "EndowmentDictator[2]"    ,
+                     "EndowmentDictator[3]" ,    "EndowmentDictator[4]"   ,  "EndowmentDictator[5]"    ,
+                     "EndowmentDictator[6]" ,    "EndowmentDictator[7]"   ,  "EndowmentDictator[8]"    ,
+                     "EndowmentDictator[9]" ,    "EndowmentDictator[10]"  ,  "EndowmentDictator[11]"   ,
+                     "EndowmentDictator[12]",    "EndowmentDictator[13]"  ,  "EndowmentDictator[14]"   ,
+                     "EndowmentDictator[15]",    "EndowmentDictator[16]"  ,  "EndowmentRecipient[1]"   ,
+                     "EndowmentRecipient[2]" ,   "EndowmentRecipient[3]"  ,  "EndowmentRecipient[4]"   ,
+                     "EndowmentRecipient[5]" ,   "EndowmentRecipient[6]"  ,  "EndowmentRecipient[7]"   ,
+                     "EndowmentRecipient[8]" ,   "EndowmentRecipient[9]"  ,  "EndowmentRecipient[10]"  ,
+                     "EndowmentRecipient[11]",   "EndowmentRecipient[12]" ,  "EndowmentRecipient[13]"  ,
+                     "EndowmentRecipient[14]",   "EndowmentRecipient[15]" ,  "EndowmentRecipient[16]"  ,
+                     "RiskDictator[1]" ,         "RiskDictator[2]"        ,  "RiskDictator[3]"         ,
+                     "RiskDictator[4]" ,         "RiskDictator[5]"        ,  "RiskDictator[6]"         ,
+                     "RiskDictator[7]" ,         "RiskDictator[8]"        ,  "RiskDictator[9]"         ,
+                     "RiskDictator[10]",         "RiskDictator[11]"       ,  "RiskDictator[12]"        ,
+                     "RiskDictator[13]",         "RiskDictator[14]"       ,  "RiskDictator[15]"        ,
+                     "RiskDictator[16]",         "RiskRecipient[1]"       ,  "RiskRecipient[2]"        ,
+                     "RiskRecipient[3]" ,        "RiskRecipient[4]"       ,  "RiskRecipient[5]"        ,
+                     "RiskRecipient[6]" ,        "RiskRecipient[7]"       ,  "RiskRecipient[8]"        ,
+                     "RiskRecipient[9]" ,        "RiskRecipient[10]"      ,  "RiskRecipient[11]"       ,
+                     "RiskRecipient[12]",        "RiskRecipient[13]"      ,  "RiskRecipient[14]"       ,
+                     "RiskRecipient[15]",        "RiskRecipient[16]"      ,  "ReplacementDictator[1]"  ,
+                     "ReplacementDictator[2]" ,  "ReplacementDictator[3]" ,  "ReplacementDictator[4]"  ,
+                     "ReplacementDictator[5]" ,  "ReplacementDictator[6]" ,  "ReplacementDictator[7]"  ,
+                     "ReplacementDictator[8]" ,  "ReplacementDictator[9]" ,  "ReplacementDictator[10]" ,
+                     "ReplacementDictator[11]",  "ReplacementDictator[12]" , "ReplacementDictator[13]" ,
+                     "ReplacementDictator[14]",  "ReplacementDictator[15]" , "ReplacementDictator[16]" ,
+                     "ReplacementRecipient[1]" , "ReplacementRecipient[2]" , "ReplacementRecipient[3]" ,
+                     "ReplacementRecipient[4]" , "ReplacementRecipient[5]" , "ReplacementRecipient[6]" ,
+                     "ReplacementRecipient[7]" , "ReplacementRecipient[8]" , "ReplacementRecipient[9]" ,
+                     "ReplacementRecipient[10]", "ReplacementRecipient[11]", "ReplacementRecipient[12]",
+                     "ReplacementRecipient[13]", "ReplacementRecipient[14]", "ReplacementRecipient[15]",
+                     "ReplacementRecipient[16]", "give[1]"                 , "give[2]"                 ,
+                     "give[3]"  ,                "give[4]"                 , "give[5]"                 ,
+                     "give[6]"  ,                "give[7]"                 , "give[8]"                 ,
+                     "give[9]"  ,                "give[10]"                , "give[11]"                ,
+                     "give[12]" ,                "give[13]"                , "give[14]"                ,
+                     "give[15]" ,                "give[16]"                , "transfer[1]"             ,
+                     "transfer[2]"  ,            "transfer[3]"             , "transfer[4]"             ,
+                     "transfer[5]"  ,            "transfer[6]"             , "transfer[7]"             ,
+                     "transfer[8]"  ,            "transfer[9]"             , "transfer[10]"            ,
+                     "transfer[11]" ,            "transfer[12]"            , "transfer[13]"            ,
+                     "transfer[14]" ,            "transfer[15]"            , "transfer[16]"            ,
+                     "winDictator[1]" ,          "winDictator[2]"          , "winDictator[3]"          ,
+                     "winDictator[4]" ,          "winDictator[5]"          , "winDictator[6]"          ,
+                     "winDictator[7]" ,          "winDictator[8]"          , "winDictator[9]"          ,
+                     "winDictator[10]",          "winDictator[11]"         , "winDictator[12]"         ,
+                     "winDictator[13]",          "winDictator[14]"         , "winDictator[15]"         ,
+                     "winDictator[16]",          "winRecipient[1]"         , "winRecipient[2]"         ,
+                     "winRecipient[3]" ,         "winRecipient[4]"         , "winRecipient[5]"         ,
+                     "winRecipient[6]" ,         "winRecipient[7]"         , "winRecipient[8]"         ,
+                     "winRecipient[9]" ,         "winRecipient[10]"        , "winRecipient[11]"        ,
+                     "winRecipient[12]",         "winRecipient[13]"        , "winRecipient[14]"        ,
+                     "winRecipient[15]",         "winRecipient[16]"        , "ProfitDictator[1]"       ,
+                     "ProfitDictator[2]" ,       "ProfitDictator[3]"       , "ProfitDictator[4]"       ,
+                     "ProfitDictator[5]" ,       "ProfitDictator[6]"       , "ProfitDictator[7]"       ,
+                     "ProfitDictator[8]" ,       "ProfitDictator[9]"       , "ProfitDictator[10]"      ,
+                     "ProfitDictator[11]",       "ProfitDictator[12]"      , "ProfitDictator[13]"      ,
+                     "ProfitDictator[14]",       "ProfitDictator[15]"      , "ProfitDictator[16]"      ,
+                     "ProfitRecipient[1]" ,      "ProfitRecipient[2]"      , "ProfitRecipient[3]"      ,
+                     "ProfitRecipient[4]" ,      "ProfitRecipient[5]"      , "ProfitRecipient[6]"      ,
+                     "ProfitRecipient[7]" ,      "ProfitRecipient[8]"      , "ProfitRecipient[9]"      ,
+                     "ProfitRecipient[10]",      "ProfitRecipient[11]"     , "ProfitRecipient[12]"     ,
+                     "ProfitRecipient[13]",      "ProfitRecipient[14]"     , "ProfitRecipient[15]"     ,
+                     "ProfitRecipient[16]",      "Round[1]"                , "Round[2]"                ,
+                     "Round[3]"  ,               "Round[4]"                , "Round[5]"                ,
+                     "Round[6]"  ,               "Round[7]"                , "Round[8]"                ,
+                     "Round[9]"  ,               "Round[10]"               , "Round[11]"               ,
+                     "Round[12]" ,               "Round[13]"               , "Round[14]"               ,
+                     "Round[15]" ,               "Round[16]"               , "rdmRound[1]"             ,
+                     "rdmRound[2]" ,             "rdmRound[3]"             , "rdmRound[4]"             ,
+                     "rdmRound[5]" ,             "rdmRound[6]"             , "rdmRound[7]"             ,
+                     "rdmRound[8]" ,             "rdmRound[9]"             , "rdmRound[10]"            ,
+                     "rdmRound[11]",             "rdmRound[12]"            , "rdmRound[13]"            ,
+                     "rdmRound[14]",             "rdmRound[15]"            , "rdmRound[16]"            ,
+                     "Role[1]"  ,                "Role[2]"                 , "Role[3]"                 ,
+                     "Role[4]"  ,                "Role[5]"                 , "Role[6]"                 ,
+                     "Role[7]"  ,                "Role[8]"                 , "Role[9]"                 ,
+                     "Role[10]" ,                "Role[11]"                , "Role[12]"                ,
+                     "Role[13]" ,                "Role[14]"                , "Role[15]"                ,
+                     "Role[16]" ,                "Group[1]"                , "Group[2]"                ,
+                     "Group[3]"  ,               "Group[4]"                , "Group[5]"                ,
+                     "Group[6]"  ,               "Group[7]"                , "Group[8]"                ,
+                     "Group[9]"  ,               "Group[10]"               , "Group[11]"               ,
+                     "Group[12]" ,               "Group[13]"               , "Group[14]"               ,
+                     "Group[15]" ,               "Group[16]"               , "numClicks[1]"            ,
+                     "numClicks[2]" ,            "numClicks[3]"            , "numClicks[4]"            ,
+                     "numClicks[5]" ,            "numClicks[6]"            , "numClicks[7]"            ,
+                     "numClicks[8]" ,            "numClicks[9]"            , "numClicks[10]"           ,
+                     "numClicks[11]",            "numClicks[12]"           , "numClicks[13]"           ,
+                     "numClicks[14]",            "numClicks[15]"           , "numClicks[16]"           ,
+                     "rdmNumRisk[1]",            "rdmNumRisk[2]"           , "rdmNumRisk[3]"           ,
+                     "rdmNumRisk[4]" ,           "rdmNumRisk[5]"           , "rdmNumRisk[6]"           ,
+                     "rdmNumRisk[7]"  ,          "rdmNumRisk[8]"           , "rdmNumRisk[9]"           ,
+                     "risk_decision[1]" ,        "risk_decision[2]"        , "risk_decision[3]"        ,
+                     "risk_decision[4]" ,        "risk_decision[5]"        , "risk_decision[6]"        ,
+                     "risk_decision[7]" ,        "risk_decision[8]"        , "risk_decision[9]"        ,
+                     "risk_outcome[1]" ,         "risk_outcome[2]"         , "risk_outcome[3]"         ,
+                     "risk_outcome[4]" ,         "risk_outcome[5]"         , "risk_outcome[6]"         ,
+                     "risk_outcome[7]" ,         "risk_outcome[8]"         , "risk_outcome[9]"         ,
+                     "Rate"     ,                "numRounds"               , "i"                       ,
+                     "counter"     ,             "numRoundsRisk"           , "p"                       ,
+                     "j"     ,                   "k"                       , "pay_dictator"            ,
+                     "pay_recipient"    ,        "pay_risk"  )

> #Generate subject ID
> session$ID<-c(1:length(session$Subject))

> #Questionaire part
> files <- list.files(pattern = "*.sbj$",recursive=TRUE)

> sbj <- zTreeSbj(files)
reading  170330_1020.sbj ...
reading  170330_1126.sbj ...
reading  170403_0935.sbj ...
reading  170403_1144.sbj ...
reading  170425_1152.sbj ...
reading  170425_1334.sbj ...
reading  170425_1517.sbj ...
reading  170704_0915.sbj ...
reading  170704_1110.sbj ...
reading  170704_1251.sbj ...

> names(sbj) <- c("Date","Subject","client","age","major",
+                 "gender","religion","rel_group","income_fam","polintr",
+                 "leftright","party","stfgov","gincdif","equalopt",
+                 "sucess","instr","change","changes_reason")

> sbj$ID<-c(1:length(session$Subject))

> s<-merge(session,sbj,by="ID")

> ##########################
> 
> 
> 
> 
> ##########################
> #Change data structure
> ##########################
> 
> #Total endowment
> names(s)
  [1] "ID"                       "Date.x"                   "Treatment"               
  [4] "Subject.x"                "FinalProfit"              "ShowUpFee"               
  [7] "ShowUpFeeInvested"        "MoneyAdded"               "MoneyToPay"              
 [10] "MoneyEarned"              "total[1]"                 "total[2]"                
 [13] "total[3]"                 "total[4]"                 "total[5]"                
 [16] "total[6]"                 "total[7]"                 "total[8]"                
 [19] "total[9]"                 "total[10]"                "total[11]"               
 [22] "total[12]"                "total[13]"                "total[14]"               
 [25] "total[15]"                "total[16]"                "EndowmentDictator[1]"    
 [28] "EndowmentDictator[2]"     "EndowmentDictator[3]"     "EndowmentDictator[4]"    
 [31] "EndowmentDictator[5]"     "EndowmentDictator[6]"     "EndowmentDictator[7]"    
 [34] "EndowmentDictator[8]"     "EndowmentDictator[9]"     "EndowmentDictator[10]"   
 [37] "EndowmentDictator[11]"    "EndowmentDictator[12]"    "EndowmentDictator[13]"   
 [40] "EndowmentDictator[14]"    "EndowmentDictator[15]"    "EndowmentDictator[16]"   
 [43] "EndowmentRecipient[1]"    "EndowmentRecipient[2]"    "EndowmentRecipient[3]"   
 [46] "EndowmentRecipient[4]"    "EndowmentRecipient[5]"    "EndowmentRecipient[6]"   
 [49] "EndowmentRecipient[7]"    "EndowmentRecipient[8]"    "EndowmentRecipient[9]"   
 [52] "EndowmentRecipient[10]"   "EndowmentRecipient[11]"   "EndowmentRecipient[12]"  
 [55] "EndowmentRecipient[13]"   "EndowmentRecipient[14]"   "EndowmentRecipient[15]"  
 [58] "EndowmentRecipient[16]"   "RiskDictator[1]"          "RiskDictator[2]"         
 [61] "RiskDictator[3]"          "RiskDictator[4]"          "RiskDictator[5]"         
 [64] "RiskDictator[6]"          "RiskDictator[7]"          "RiskDictator[8]"         
 [67] "RiskDictator[9]"          "RiskDictator[10]"         "RiskDictator[11]"        
 [70] "RiskDictator[12]"         "RiskDictator[13]"         "RiskDictator[14]"        
 [73] "RiskDictator[15]"         "RiskDictator[16]"         "RiskRecipient[1]"        
 [76] "RiskRecipient[2]"         "RiskRecipient[3]"         "RiskRecipient[4]"        
 [79] "RiskRecipient[5]"         "RiskRecipient[6]"         "RiskRecipient[7]"        
 [82] "RiskRecipient[8]"         "RiskRecipient[9]"         "RiskRecipient[10]"       
 [85] "RiskRecipient[11]"        "RiskRecipient[12]"        "RiskRecipient[13]"       
 [88] "RiskRecipient[14]"        "RiskRecipient[15]"        "RiskRecipient[16]"       
 [91] "ReplacementDictator[1]"   "ReplacementDictator[2]"   "ReplacementDictator[3]"  
 [94] "ReplacementDictator[4]"   "ReplacementDictator[5]"   "ReplacementDictator[6]"  
 [97] "ReplacementDictator[7]"   "ReplacementDictator[8]"   "ReplacementDictator[9]"  
[100] "ReplacementDictator[10]"  "ReplacementDictator[11]"  "ReplacementDictator[12]" 
[103] "ReplacementDictator[13]"  "ReplacementDictator[14]"  "ReplacementDictator[15]" 
[106] "ReplacementDictator[16]"  "ReplacementRecipient[1]"  "ReplacementRecipient[2]" 
[109] "ReplacementRecipient[3]"  "ReplacementRecipient[4]"  "ReplacementRecipient[5]" 
[112] "ReplacementRecipient[6]"  "ReplacementRecipient[7]"  "ReplacementRecipient[8]" 
[115] "ReplacementRecipient[9]"  "ReplacementRecipient[10]" "ReplacementRecipient[11]"
[118] "ReplacementRecipient[12]" "ReplacementRecipient[13]" "ReplacementRecipient[14]"
[121] "ReplacementRecipient[15]" "ReplacementRecipient[16]" "give[1]"                 
[124] "give[2]"                  "give[3]"                  "give[4]"                 
[127] "give[5]"                  "give[6]"                  "give[7]"                 
[130] "give[8]"                  "give[9]"                  "give[10]"                
[133] "give[11]"                 "give[12]"                 "give[13]"                
[136] "give[14]"                 "give[15]"                 "give[16]"                
[139] "transfer[1]"              "transfer[2]"              "transfer[3]"             
[142] "transfer[4]"              "transfer[5]"              "transfer[6]"             
[145] "transfer[7]"              "transfer[8]"              "transfer[9]"             
[148] "transfer[10]"             "transfer[11]"             "transfer[12]"            
[151] "transfer[13]"             "transfer[14]"             "transfer[15]"            
[154] "transfer[16]"             "winDictator[1]"           "winDictator[2]"          
[157] "winDictator[3]"           "winDictator[4]"           "winDictator[5]"          
[160] "winDictator[6]"           "winDictator[7]"           "winDictator[8]"          
[163] "winDictator[9]"           "winDictator[10]"          "winDictator[11]"         
[166] "winDictator[12]"          "winDictator[13]"          "winDictator[14]"         
[169] "winDictator[15]"          "winDictator[16]"          "winRecipient[1]"         
[172] "winRecipient[2]"          "winRecipient[3]"          "winRecipient[4]"         
[175] "winRecipient[5]"          "winRecipient[6]"          "winRecipient[7]"         
[178] "winRecipient[8]"          "winRecipient[9]"          "winRecipient[10]"        
[181] "winRecipient[11]"         "winRecipient[12]"         "winRecipient[13]"        
[184] "winRecipient[14]"         "winRecipient[15]"         "winRecipient[16]"        
[187] "ProfitDictator[1]"        "ProfitDictator[2]"        "ProfitDictator[3]"       
[190] "ProfitDictator[4]"        "ProfitDictator[5]"        "ProfitDictator[6]"       
[193] "ProfitDictator[7]"        "ProfitDictator[8]"        "ProfitDictator[9]"       
[196] "ProfitDictator[10]"       "ProfitDictator[11]"       "ProfitDictator[12]"      
[199] "ProfitDictator[13]"       "ProfitDictator[14]"       "ProfitDictator[15]"      
[202] "ProfitDictator[16]"       "ProfitRecipient[1]"       "ProfitRecipient[2]"      
[205] "ProfitRecipient[3]"       "ProfitRecipient[4]"       "ProfitRecipient[5]"      
[208] "ProfitRecipient[6]"       "ProfitRecipient[7]"       "ProfitRecipient[8]"      
[211] "ProfitRecipient[9]"       "ProfitRecipient[10]"      "ProfitRecipient[11]"     
[214] "ProfitRecipient[12]"      "ProfitRecipient[13]"      "ProfitRecipient[14]"     
[217] "ProfitRecipient[15]"      "ProfitRecipient[16]"      "Round[1]"                
[220] "Round[2]"                 "Round[3]"                 "Round[4]"                
[223] "Round[5]"                 "Round[6]"                 "Round[7]"                
[226] "Round[8]"                 "Round[9]"                 "Round[10]"               
[229] "Round[11]"                "Round[12]"                "Round[13]"               
[232] "Round[14]"                "Round[15]"                "Round[16]"               
[235] "rdmRound[1]"              "rdmRound[2]"              "rdmRound[3]"             
[238] "rdmRound[4]"              "rdmRound[5]"              "rdmRound[6]"             
[241] "rdmRound[7]"              "rdmRound[8]"              "rdmRound[9]"             
[244] "rdmRound[10]"             "rdmRound[11]"             "rdmRound[12]"            
[247] "rdmRound[13]"             "rdmRound[14]"             "rdmRound[15]"            
[250] "rdmRound[16]"             "Role[1]"                  "Role[2]"                 
[253] "Role[3]"                  "Role[4]"                  "Role[5]"                 
[256] "Role[6]"                  "Role[7]"                  "Role[8]"                 
[259] "Role[9]"                  "Role[10]"                 "Role[11]"                
[262] "Role[12]"                 "Role[13]"                 "Role[14]"                
[265] "Role[15]"                 "Role[16]"                 "Group[1]"                
[268] "Group[2]"                 "Group[3]"                 "Group[4]"                
[271] "Group[5]"                 "Group[6]"                 "Group[7]"                
[274] "Group[8]"                 "Group[9]"                 "Group[10]"               
[277] "Group[11]"                "Group[12]"                "Group[13]"               
[280] "Group[14]"                "Group[15]"                "Group[16]"               
[283] "numClicks[1]"             "numClicks[2]"             "numClicks[3]"            
[286] "numClicks[4]"             "numClicks[5]"             "numClicks[6]"            
[289] "numClicks[7]"             "numClicks[8]"             "numClicks[9]"            
[292] "numClicks[10]"            "numClicks[11]"            "numClicks[12]"           
[295] "numClicks[13]"            "numClicks[14]"            "numClicks[15]"           
[298] "numClicks[16]"            "rdmNumRisk[1]"            "rdmNumRisk[2]"           
[301] "rdmNumRisk[3]"            "rdmNumRisk[4]"            "rdmNumRisk[5]"           
[304] "rdmNumRisk[6]"            "rdmNumRisk[7]"            "rdmNumRisk[8]"           
[307] "rdmNumRisk[9]"            "risk_decision[1]"         "risk_decision[2]"        
[310] "risk_decision[3]"         "risk_decision[4]"         "risk_decision[5]"        
[313] "risk_decision[6]"         "risk_decision[7]"         "risk_decision[8]"        
[316] "risk_decision[9]"         "risk_outcome[1]"          "risk_outcome[2]"         
[319] "risk_outcome[3]"          "risk_outcome[4]"          "risk_outcome[5]"         
[322] "risk_outcome[6]"          "risk_outcome[7]"          "risk_outcome[8]"         
[325] "risk_outcome[9]"          "Rate"                     "numRounds"               
[328] "i"                        "counter"                  "numRoundsRisk"           
[331] "p"                        "j"                        "k"                       
[334] "pay_dictator"             "pay_recipient"            "pay_risk"                
[337] "Date.y"                   "Subject.y"                "client"                  
[340] "age"                      "major"                    "gender"                  
[343] "religion"                 "rel_group"                "income_fam"              
[346] "polintr"                  "leftright"                "party"                   
[349] "stfgov"                   "gincdif"                  "equalopt"                
[352] "sucess"                   "instr"                    "change"                  
[355] "changes_reason"          

> s[,11]
  [1]  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400
 [16]  9400  9400  9400  9400  9400 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450
 [31] 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450  9400  9400  9400
 [46]  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400
 [61]  9400  9400  9400  9400 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450
 [76] 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450
 [91] 13450 13450  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400
[106]  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400
[121]  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400
[136]  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400
[151]  9400  9400  9400  9400  9400  9400  4700  4700  4700  4700  4700  4700  4700  4700  4700
[166]  4700  4700  4700  4700  4700  4700  4700  4700  4700

> for(i in 1:16) { 
+   nam <- paste("total", i, sep = "_")
+   assign(nam, s[,10+i]) ##start with -1
+ }

> s[,10+1]
  [1]  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400
 [16]  9400  9400  9400  9400  9400 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450
 [31] 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450  9400  9400  9400
 [46]  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400
 [61]  9400  9400  9400  9400 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450
 [76] 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450
 [91] 13450 13450  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400
[106]  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400
[121]  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400
[136]  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400
[151]  9400  9400  9400  9400  9400  9400  4700  4700  4700  4700  4700  4700  4700  4700  4700
[166]  4700  4700  4700  4700  4700  4700  4700  4700  4700

> s$`total[1]`
  [1]  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400
 [16]  9400  9400  9400  9400  9400 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450
 [31] 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450  9400  9400  9400
 [46]  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400
 [61]  9400  9400  9400  9400 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450
 [76] 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450
 [91] 13450 13450  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400
[106]  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400
[121]  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400
[136]  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400
[151]  9400  9400  9400  9400  9400  9400  4700  4700  4700  4700  4700  4700  4700  4700  4700
[166]  4700  4700  4700  4700  4700  4700  4700  4700  4700

> total_1
  [1]  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400
 [16]  9400  9400  9400  9400  9400 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450
 [31] 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450  9400  9400  9400
 [46]  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400
 [61]  9400  9400  9400  9400 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450
 [76] 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450 13450
 [91] 13450 13450  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400
[106]  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400
[121]  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400
[136]  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400  9400
[151]  9400  9400  9400  9400  9400  9400  4700  4700  4700  4700  4700  4700  4700  4700  4700
[166]  4700  4700  4700  4700  4700  4700  4700  4700  4700

> ##########################
> 
> 
> #Endowment dictator
> names(s)
  [1] "ID"                       "Date.x"                   "Treatment"               
  [4] "Subject.x"                "FinalProfit"              "ShowUpFee"               
  [7] "ShowUpFeeInvested"        "MoneyAdded"               "MoneyToPay"              
 [10] "MoneyEarned"              "total[1]"                 "total[2]"                
 [13] "total[3]"                 "total[4]"                 "total[5]"                
 [16] "total[6]"                 "total[7]"                 "total[8]"                
 [19] "total[9]"                 "total[10]"                "total[11]"               
 [22] "total[12]"                "total[13]"                "total[14]"               
 [25] "total[15]"                "total[16]"                "EndowmentDictator[1]"    
 [28] "EndowmentDictator[2]"     "EndowmentDictator[3]"     "EndowmentDictator[4]"    
 [31] "EndowmentDictator[5]"     "EndowmentDictator[6]"     "EndowmentDictator[7]"    
 [34] "EndowmentDictator[8]"     "EndowmentDictator[9]"     "EndowmentDictator[10]"   
 [37] "EndowmentDictator[11]"    "EndowmentDictator[12]"    "EndowmentDictator[13]"   
 [40] "EndowmentDictator[14]"    "EndowmentDictator[15]"    "EndowmentDictator[16]"   
 [43] "EndowmentRecipient[1]"    "EndowmentRecipient[2]"    "EndowmentRecipient[3]"   
 [46] "EndowmentRecipient[4]"    "EndowmentRecipient[5]"    "EndowmentRecipient[6]"   
 [49] "EndowmentRecipient[7]"    "EndowmentRecipient[8]"    "EndowmentRecipient[9]"   
 [52] "EndowmentRecipient[10]"   "EndowmentRecipient[11]"   "EndowmentRecipient[12]"  
 [55] "EndowmentRecipient[13]"   "EndowmentRecipient[14]"   "EndowmentRecipient[15]"  
 [58] "EndowmentRecipient[16]"   "RiskDictator[1]"          "RiskDictator[2]"         
 [61] "RiskDictator[3]"          "RiskDictator[4]"          "RiskDictator[5]"         
 [64] "RiskDictator[6]"          "RiskDictator[7]"          "RiskDictator[8]"         
 [67] "RiskDictator[9]"          "RiskDictator[10]"         "RiskDictator[11]"        
 [70] "RiskDictator[12]"         "RiskDictator[13]"         "RiskDictator[14]"        
 [73] "RiskDictator[15]"         "RiskDictator[16]"         "RiskRecipient[1]"        
 [76] "RiskRecipient[2]"         "RiskRecipient[3]"         "RiskRecipient[4]"        
 [79] "RiskRecipient[5]"         "RiskRecipient[6]"         "RiskRecipient[7]"        
 [82] "RiskRecipient[8]"         "RiskRecipient[9]"         "RiskRecipient[10]"       
 [85] "RiskRecipient[11]"        "RiskRecipient[12]"        "RiskRecipient[13]"       
 [88] "RiskRecipient[14]"        "RiskRecipient[15]"        "RiskRecipient[16]"       
 [91] "ReplacementDictator[1]"   "ReplacementDictator[2]"   "ReplacementDictator[3]"  
 [94] "ReplacementDictator[4]"   "ReplacementDictator[5]"   "ReplacementDictator[6]"  
 [97] "ReplacementDictator[7]"   "ReplacementDictator[8]"   "ReplacementDictator[9]"  
[100] "ReplacementDictator[10]"  "ReplacementDictator[11]"  "ReplacementDictator[12]" 
[103] "ReplacementDictator[13]"  "ReplacementDictator[14]"  "ReplacementDictator[15]" 
[106] "ReplacementDictator[16]"  "ReplacementRecipient[1]"  "ReplacementRecipient[2]" 
[109] "ReplacementRecipient[3]"  "ReplacementRecipient[4]"  "ReplacementRecipient[5]" 
[112] "ReplacementRecipient[6]"  "ReplacementRecipient[7]"  "ReplacementRecipient[8]" 
[115] "ReplacementRecipient[9]"  "ReplacementRecipient[10]" "ReplacementRecipient[11]"
[118] "ReplacementRecipient[12]" "ReplacementRecipient[13]" "ReplacementRecipient[14]"
[121] "ReplacementRecipient[15]" "ReplacementRecipient[16]" "give[1]"                 
[124] "give[2]"                  "give[3]"                  "give[4]"                 
[127] "give[5]"                  "give[6]"                  "give[7]"                 
[130] "give[8]"                  "give[9]"                  "give[10]"                
[133] "give[11]"                 "give[12]"                 "give[13]"                
[136] "give[14]"                 "give[15]"                 "give[16]"                
[139] "transfer[1]"              "transfer[2]"              "transfer[3]"             
[142] "transfer[4]"              "transfer[5]"              "transfer[6]"             
[145] "transfer[7]"              "transfer[8]"              "transfer[9]"             
[148] "transfer[10]"             "transfer[11]"             "transfer[12]"            
[151] "transfer[13]"             "transfer[14]"             "transfer[15]"            
[154] "transfer[16]"             "winDictator[1]"           "winDictator[2]"          
[157] "winDictator[3]"           "winDictator[4]"           "winDictator[5]"          
[160] "winDictator[6]"           "winDictator[7]"           "winDictator[8]"          
[163] "winDictator[9]"           "winDictator[10]"          "winDictator[11]"         
[166] "winDictator[12]"          "winDictator[13]"          "winDictator[14]"         
[169] "winDictator[15]"          "winDictator[16]"          "winRecipient[1]"         
[172] "winRecipient[2]"          "winRecipient[3]"          "winRecipient[4]"         
[175] "winRecipient[5]"          "winRecipient[6]"          "winRecipient[7]"         
[178] "winRecipient[8]"          "winRecipient[9]"          "winRecipient[10]"        
[181] "winRecipient[11]"         "winRecipient[12]"         "winRecipient[13]"        
[184] "winRecipient[14]"         "winRecipient[15]"         "winRecipient[16]"        
[187] "ProfitDictator[1]"        "ProfitDictator[2]"        "ProfitDictator[3]"       
[190] "ProfitDictator[4]"        "ProfitDictator[5]"        "ProfitDictator[6]"       
[193] "ProfitDictator[7]"        "ProfitDictator[8]"        "ProfitDictator[9]"       
[196] "ProfitDictator[10]"       "ProfitDictator[11]"       "ProfitDictator[12]"      
[199] "ProfitDictator[13]"       "ProfitDictator[14]"       "ProfitDictator[15]"      
[202] "ProfitDictator[16]"       "ProfitRecipient[1]"       "ProfitRecipient[2]"      
[205] "ProfitRecipient[3]"       "ProfitRecipient[4]"       "ProfitRecipient[5]"      
[208] "ProfitRecipient[6]"       "ProfitRecipient[7]"       "ProfitRecipient[8]"      
[211] "ProfitRecipient[9]"       "ProfitRecipient[10]"      "ProfitRecipient[11]"     
[214] "ProfitRecipient[12]"      "ProfitRecipient[13]"      "ProfitRecipient[14]"     
[217] "ProfitRecipient[15]"      "ProfitRecipient[16]"      "Round[1]"                
[220] "Round[2]"                 "Round[3]"                 "Round[4]"                
[223] "Round[5]"                 "Round[6]"                 "Round[7]"                
[226] "Round[8]"                 "Round[9]"                 "Round[10]"               
[229] "Round[11]"                "Round[12]"                "Round[13]"               
[232] "Round[14]"                "Round[15]"                "Round[16]"               
[235] "rdmRound[1]"              "rdmRound[2]"              "rdmRound[3]"             
[238] "rdmRound[4]"              "rdmRound[5]"              "rdmRound[6]"             
[241] "rdmRound[7]"              "rdmRound[8]"              "rdmRound[9]"             
[244] "rdmRound[10]"             "rdmRound[11]"             "rdmRound[12]"            
[247] "rdmRound[13]"             "rdmRound[14]"             "rdmRound[15]"            
[250] "rdmRound[16]"             "Role[1]"                  "Role[2]"                 
[253] "Role[3]"                  "Role[4]"                  "Role[5]"                 
[256] "Role[6]"                  "Role[7]"                  "Role[8]"                 
[259] "Role[9]"                  "Role[10]"                 "Role[11]"                
[262] "Role[12]"                 "Role[13]"                 "Role[14]"                
[265] "Role[15]"                 "Role[16]"                 "Group[1]"                
[268] "Group[2]"                 "Group[3]"                 "Group[4]"                
[271] "Group[5]"                 "Group[6]"                 "Group[7]"                
[274] "Group[8]"                 "Group[9]"                 "Group[10]"               
[277] "Group[11]"                "Group[12]"                "Group[13]"               
[280] "Group[14]"                "Group[15]"                "Group[16]"               
[283] "numClicks[1]"             "numClicks[2]"             "numClicks[3]"            
[286] "numClicks[4]"             "numClicks[5]"             "numClicks[6]"            
[289] "numClicks[7]"             "numClicks[8]"             "numClicks[9]"            
[292] "numClicks[10]"            "numClicks[11]"            "numClicks[12]"           
[295] "numClicks[13]"            "numClicks[14]"            "numClicks[15]"           
[298] "numClicks[16]"            "rdmNumRisk[1]"            "rdmNumRisk[2]"           
[301] "rdmNumRisk[3]"            "rdmNumRisk[4]"            "rdmNumRisk[5]"           
[304] "rdmNumRisk[6]"            "rdmNumRisk[7]"            "rdmNumRisk[8]"           
[307] "rdmNumRisk[9]"            "risk_decision[1]"         "risk_decision[2]"        
[310] "risk_decision[3]"         "risk_decision[4]"         "risk_decision[5]"        
[313] "risk_decision[6]"         "risk_decision[7]"         "risk_decision[8]"        
[316] "risk_decision[9]"         "risk_outcome[1]"          "risk_outcome[2]"         
[319] "risk_outcome[3]"          "risk_outcome[4]"          "risk_outcome[5]"         
[322] "risk_outcome[6]"          "risk_outcome[7]"          "risk_outcome[8]"         
[325] "risk_outcome[9]"          "Rate"                     "numRounds"               
[328] "i"                        "counter"                  "numRoundsRisk"           
[331] "p"                        "j"                        "k"                       
[334] "pay_dictator"             "pay_recipient"            "pay_risk"                
[337] "Date.y"                   "Subject.y"                "client"                  
[340] "age"                      "major"                    "gender"                  
[343] "religion"                 "rel_group"                "income_fam"              
[346] "polintr"                  "leftright"                "party"                   
[349] "stfgov"                   "gincdif"                  "equalopt"                
[352] "sucess"                   "instr"                    "change"                  
[355] "changes_reason"          

> s[,27]
  [1]  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100
 [16]  8100  8100  8100  8100  8100 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150
 [31] 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150  8100  8100  8100
 [46]  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100
 [61]  8100  8100  8100  8100 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150
 [76] 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150
 [91] 12150 12150  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100
[106]  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100
[121]  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100
[136]  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100
[151]  8100  8100  8100  8100  8100  8100  4050  4050  4050  4050  4050  4050  4050  4050  4050
[166]  4050  4050  4050  4050  4050  4050  4050  4050  4050

> for(i in 1:16) { 
+   nam <- paste("EndowmentDictator", i, sep = "_")
+   assign(nam, s[,26+i]) ##start with -1
+ }

> s$`EndowmentDictator[16]`
  [1]  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100
 [16]  8100  8100  8100  8100  8100  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050
 [31]  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050  8100  8100  8100
 [46]  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100
 [61]  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100
 [76]  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100
 [91]  8100  8100  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050  8100
[106]  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100 12150 12150
[121] 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150
[136] 12150  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050
[151]  4050  4050  4050  4050  4050  4050  8100  8100  8100  8100  8100  8100  8100  8100  8100
[166]  8100  8100  8100  8100  8100  8100  8100  8100  8100

> EndowmentDictator_16
  [1]  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100
 [16]  8100  8100  8100  8100  8100  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050
 [31]  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050  8100  8100  8100
 [46]  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100
 [61]  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100
 [76]  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100
 [91]  8100  8100  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050  8100
[106]  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100 12150 12150
[121] 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150
[136] 12150  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050
[151]  4050  4050  4050  4050  4050  4050  8100  8100  8100  8100  8100  8100  8100  8100  8100
[166]  8100  8100  8100  8100  8100  8100  8100  8100  8100

> ##########################
> 
> 
> #Endowment recipient
> names(s)
  [1] "ID"                       "Date.x"                   "Treatment"               
  [4] "Subject.x"                "FinalProfit"              "ShowUpFee"               
  [7] "ShowUpFeeInvested"        "MoneyAdded"               "MoneyToPay"              
 [10] "MoneyEarned"              "total[1]"                 "total[2]"                
 [13] "total[3]"                 "total[4]"                 "total[5]"                
 [16] "total[6]"                 "total[7]"                 "total[8]"                
 [19] "total[9]"                 "total[10]"                "total[11]"               
 [22] "total[12]"                "total[13]"                "total[14]"               
 [25] "total[15]"                "total[16]"                "EndowmentDictator[1]"    
 [28] "EndowmentDictator[2]"     "EndowmentDictator[3]"     "EndowmentDictator[4]"    
 [31] "EndowmentDictator[5]"     "EndowmentDictator[6]"     "EndowmentDictator[7]"    
 [34] "EndowmentDictator[8]"     "EndowmentDictator[9]"     "EndowmentDictator[10]"   
 [37] "EndowmentDictator[11]"    "EndowmentDictator[12]"    "EndowmentDictator[13]"   
 [40] "EndowmentDictator[14]"    "EndowmentDictator[15]"    "EndowmentDictator[16]"   
 [43] "EndowmentRecipient[1]"    "EndowmentRecipient[2]"    "EndowmentRecipient[3]"   
 [46] "EndowmentRecipient[4]"    "EndowmentRecipient[5]"    "EndowmentRecipient[6]"   
 [49] "EndowmentRecipient[7]"    "EndowmentRecipient[8]"    "EndowmentRecipient[9]"   
 [52] "EndowmentRecipient[10]"   "EndowmentRecipient[11]"   "EndowmentRecipient[12]"  
 [55] "EndowmentRecipient[13]"   "EndowmentRecipient[14]"   "EndowmentRecipient[15]"  
 [58] "EndowmentRecipient[16]"   "RiskDictator[1]"          "RiskDictator[2]"         
 [61] "RiskDictator[3]"          "RiskDictator[4]"          "RiskDictator[5]"         
 [64] "RiskDictator[6]"          "RiskDictator[7]"          "RiskDictator[8]"         
 [67] "RiskDictator[9]"          "RiskDictator[10]"         "RiskDictator[11]"        
 [70] "RiskDictator[12]"         "RiskDictator[13]"         "RiskDictator[14]"        
 [73] "RiskDictator[15]"         "RiskDictator[16]"         "RiskRecipient[1]"        
 [76] "RiskRecipient[2]"         "RiskRecipient[3]"         "RiskRecipient[4]"        
 [79] "RiskRecipient[5]"         "RiskRecipient[6]"         "RiskRecipient[7]"        
 [82] "RiskRecipient[8]"         "RiskRecipient[9]"         "RiskRecipient[10]"       
 [85] "RiskRecipient[11]"        "RiskRecipient[12]"        "RiskRecipient[13]"       
 [88] "RiskRecipient[14]"        "RiskRecipient[15]"        "RiskRecipient[16]"       
 [91] "ReplacementDictator[1]"   "ReplacementDictator[2]"   "ReplacementDictator[3]"  
 [94] "ReplacementDictator[4]"   "ReplacementDictator[5]"   "ReplacementDictator[6]"  
 [97] "ReplacementDictator[7]"   "ReplacementDictator[8]"   "ReplacementDictator[9]"  
[100] "ReplacementDictator[10]"  "ReplacementDictator[11]"  "ReplacementDictator[12]" 
[103] "ReplacementDictator[13]"  "ReplacementDictator[14]"  "ReplacementDictator[15]" 
[106] "ReplacementDictator[16]"  "ReplacementRecipient[1]"  "ReplacementRecipient[2]" 
[109] "ReplacementRecipient[3]"  "ReplacementRecipient[4]"  "ReplacementRecipient[5]" 
[112] "ReplacementRecipient[6]"  "ReplacementRecipient[7]"  "ReplacementRecipient[8]" 
[115] "ReplacementRecipient[9]"  "ReplacementRecipient[10]" "ReplacementRecipient[11]"
[118] "ReplacementRecipient[12]" "ReplacementRecipient[13]" "ReplacementRecipient[14]"
[121] "ReplacementRecipient[15]" "ReplacementRecipient[16]" "give[1]"                 
[124] "give[2]"                  "give[3]"                  "give[4]"                 
[127] "give[5]"                  "give[6]"                  "give[7]"                 
[130] "give[8]"                  "give[9]"                  "give[10]"                
[133] "give[11]"                 "give[12]"                 "give[13]"                
[136] "give[14]"                 "give[15]"                 "give[16]"                
[139] "transfer[1]"              "transfer[2]"              "transfer[3]"             
[142] "transfer[4]"              "transfer[5]"              "transfer[6]"             
[145] "transfer[7]"              "transfer[8]"              "transfer[9]"             
[148] "transfer[10]"             "transfer[11]"             "transfer[12]"            
[151] "transfer[13]"             "transfer[14]"             "transfer[15]"            
[154] "transfer[16]"             "winDictator[1]"           "winDictator[2]"          
[157] "winDictator[3]"           "winDictator[4]"           "winDictator[5]"          
[160] "winDictator[6]"           "winDictator[7]"           "winDictator[8]"          
[163] "winDictator[9]"           "winDictator[10]"          "winDictator[11]"         
[166] "winDictator[12]"          "winDictator[13]"          "winDictator[14]"         
[169] "winDictator[15]"          "winDictator[16]"          "winRecipient[1]"         
[172] "winRecipient[2]"          "winRecipient[3]"          "winRecipient[4]"         
[175] "winRecipient[5]"          "winRecipient[6]"          "winRecipient[7]"         
[178] "winRecipient[8]"          "winRecipient[9]"          "winRecipient[10]"        
[181] "winRecipient[11]"         "winRecipient[12]"         "winRecipient[13]"        
[184] "winRecipient[14]"         "winRecipient[15]"         "winRecipient[16]"        
[187] "ProfitDictator[1]"        "ProfitDictator[2]"        "ProfitDictator[3]"       
[190] "ProfitDictator[4]"        "ProfitDictator[5]"        "ProfitDictator[6]"       
[193] "ProfitDictator[7]"        "ProfitDictator[8]"        "ProfitDictator[9]"       
[196] "ProfitDictator[10]"       "ProfitDictator[11]"       "ProfitDictator[12]"      
[199] "ProfitDictator[13]"       "ProfitDictator[14]"       "ProfitDictator[15]"      
[202] "ProfitDictator[16]"       "ProfitRecipient[1]"       "ProfitRecipient[2]"      
[205] "ProfitRecipient[3]"       "ProfitRecipient[4]"       "ProfitRecipient[5]"      
[208] "ProfitRecipient[6]"       "ProfitRecipient[7]"       "ProfitRecipient[8]"      
[211] "ProfitRecipient[9]"       "ProfitRecipient[10]"      "ProfitRecipient[11]"     
[214] "ProfitRecipient[12]"      "ProfitRecipient[13]"      "ProfitRecipient[14]"     
[217] "ProfitRecipient[15]"      "ProfitRecipient[16]"      "Round[1]"                
[220] "Round[2]"                 "Round[3]"                 "Round[4]"                
[223] "Round[5]"                 "Round[6]"                 "Round[7]"                
[226] "Round[8]"                 "Round[9]"                 "Round[10]"               
[229] "Round[11]"                "Round[12]"                "Round[13]"               
[232] "Round[14]"                "Round[15]"                "Round[16]"               
[235] "rdmRound[1]"              "rdmRound[2]"              "rdmRound[3]"             
[238] "rdmRound[4]"              "rdmRound[5]"              "rdmRound[6]"             
[241] "rdmRound[7]"              "rdmRound[8]"              "rdmRound[9]"             
[244] "rdmRound[10]"             "rdmRound[11]"             "rdmRound[12]"            
[247] "rdmRound[13]"             "rdmRound[14]"             "rdmRound[15]"            
[250] "rdmRound[16]"             "Role[1]"                  "Role[2]"                 
[253] "Role[3]"                  "Role[4]"                  "Role[5]"                 
[256] "Role[6]"                  "Role[7]"                  "Role[8]"                 
[259] "Role[9]"                  "Role[10]"                 "Role[11]"                
[262] "Role[12]"                 "Role[13]"                 "Role[14]"                
[265] "Role[15]"                 "Role[16]"                 "Group[1]"                
[268] "Group[2]"                 "Group[3]"                 "Group[4]"                
[271] "Group[5]"                 "Group[6]"                 "Group[7]"                
[274] "Group[8]"                 "Group[9]"                 "Group[10]"               
[277] "Group[11]"                "Group[12]"                "Group[13]"               
[280] "Group[14]"                "Group[15]"                "Group[16]"               
[283] "numClicks[1]"             "numClicks[2]"             "numClicks[3]"            
[286] "numClicks[4]"             "numClicks[5]"             "numClicks[6]"            
[289] "numClicks[7]"             "numClicks[8]"             "numClicks[9]"            
[292] "numClicks[10]"            "numClicks[11]"            "numClicks[12]"           
[295] "numClicks[13]"            "numClicks[14]"            "numClicks[15]"           
[298] "numClicks[16]"            "rdmNumRisk[1]"            "rdmNumRisk[2]"           
[301] "rdmNumRisk[3]"            "rdmNumRisk[4]"            "rdmNumRisk[5]"           
[304] "rdmNumRisk[6]"            "rdmNumRisk[7]"            "rdmNumRisk[8]"           
[307] "rdmNumRisk[9]"            "risk_decision[1]"         "risk_decision[2]"        
[310] "risk_decision[3]"         "risk_decision[4]"         "risk_decision[5]"        
[313] "risk_decision[6]"         "risk_decision[7]"         "risk_decision[8]"        
[316] "risk_decision[9]"         "risk_outcome[1]"          "risk_outcome[2]"         
[319] "risk_outcome[3]"          "risk_outcome[4]"          "risk_outcome[5]"         
[322] "risk_outcome[6]"          "risk_outcome[7]"          "risk_outcome[8]"         
[325] "risk_outcome[9]"          "Rate"                     "numRounds"               
[328] "i"                        "counter"                  "numRoundsRisk"           
[331] "p"                        "j"                        "k"                       
[334] "pay_dictator"             "pay_recipient"            "pay_risk"                
[337] "Date.y"                   "Subject.y"                "client"                  
[340] "age"                      "major"                    "gender"                  
[343] "religion"                 "rel_group"                "income_fam"              
[346] "polintr"                  "leftright"                "party"                   
[349] "stfgov"                   "gincdif"                  "equalopt"                
[352] "sucess"                   "instr"                    "change"                  
[355] "changes_reason"          

> s[,43]
  [1] 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300
 [19] 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300
 [37] 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300
 [55] 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300
 [73] 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300
 [91] 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300
[109] 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300
[127] 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300
[145] 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300  650  650  650  650  650  650
[163]  650  650  650  650  650  650  650  650  650  650  650  650

> for(i in 1:16) { 
+   nam <- paste("EndowmentRecipient", i, sep = "_")
+   assign(nam, s[,42+i]) ##start with -1
+ }

> s$`EndowmentRecipient[16]`
  [1] 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300
 [19] 1300 1300  650  650  650  650  650  650  650  650  650  650  650  650  650  650  650  650
 [37]  650  650  650  650  650  650 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300
 [55] 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300
 [73] 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300
 [91] 1300 1300  650  650  650  650  650  650  650  650  650  650  650  650 1300 1300 1300 1300
[109] 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300
[127] 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300  650  650  650  650  650  650  650  650
[145]  650  650  650  650  650  650  650  650  650  650  650  650 1300 1300 1300 1300 1300 1300
[163] 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300

> EndowmentRecipient_16
  [1] 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300
 [19] 1300 1300  650  650  650  650  650  650  650  650  650  650  650  650  650  650  650  650
 [37]  650  650  650  650  650  650 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300
 [55] 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300
 [73] 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300
 [91] 1300 1300  650  650  650  650  650  650  650  650  650  650  650  650 1300 1300 1300 1300
[109] 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300
[127] 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300  650  650  650  650  650  650  650  650
[145]  650  650  650  650  650  650  650  650  650  650  650  650 1300 1300 1300 1300 1300 1300
[163] 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300 1300

> ##########################
> 
> 
> #Risk dictator
> names(s)
  [1] "ID"                       "Date.x"                   "Treatment"               
  [4] "Subject.x"                "FinalProfit"              "ShowUpFee"               
  [7] "ShowUpFeeInvested"        "MoneyAdded"               "MoneyToPay"              
 [10] "MoneyEarned"              "total[1]"                 "total[2]"                
 [13] "total[3]"                 "total[4]"                 "total[5]"                
 [16] "total[6]"                 "total[7]"                 "total[8]"                
 [19] "total[9]"                 "total[10]"                "total[11]"               
 [22] "total[12]"                "total[13]"                "total[14]"               
 [25] "total[15]"                "total[16]"                "EndowmentDictator[1]"    
 [28] "EndowmentDictator[2]"     "EndowmentDictator[3]"     "EndowmentDictator[4]"    
 [31] "EndowmentDictator[5]"     "EndowmentDictator[6]"     "EndowmentDictator[7]"    
 [34] "EndowmentDictator[8]"     "EndowmentDictator[9]"     "EndowmentDictator[10]"   
 [37] "EndowmentDictator[11]"    "EndowmentDictator[12]"    "EndowmentDictator[13]"   
 [40] "EndowmentDictator[14]"    "EndowmentDictator[15]"    "EndowmentDictator[16]"   
 [43] "EndowmentRecipient[1]"    "EndowmentRecipient[2]"    "EndowmentRecipient[3]"   
 [46] "EndowmentRecipient[4]"    "EndowmentRecipient[5]"    "EndowmentRecipient[6]"   
 [49] "EndowmentRecipient[7]"    "EndowmentRecipient[8]"    "EndowmentRecipient[9]"   
 [52] "EndowmentRecipient[10]"   "EndowmentRecipient[11]"   "EndowmentRecipient[12]"  
 [55] "EndowmentRecipient[13]"   "EndowmentRecipient[14]"   "EndowmentRecipient[15]"  
 [58] "EndowmentRecipient[16]"   "RiskDictator[1]"          "RiskDictator[2]"         
 [61] "RiskDictator[3]"          "RiskDictator[4]"          "RiskDictator[5]"         
 [64] "RiskDictator[6]"          "RiskDictator[7]"          "RiskDictator[8]"         
 [67] "RiskDictator[9]"          "RiskDictator[10]"         "RiskDictator[11]"        
 [70] "RiskDictator[12]"         "RiskDictator[13]"         "RiskDictator[14]"        
 [73] "RiskDictator[15]"         "RiskDictator[16]"         "RiskRecipient[1]"        
 [76] "RiskRecipient[2]"         "RiskRecipient[3]"         "RiskRecipient[4]"        
 [79] "RiskRecipient[5]"         "RiskRecipient[6]"         "RiskRecipient[7]"        
 [82] "RiskRecipient[8]"         "RiskRecipient[9]"         "RiskRecipient[10]"       
 [85] "RiskRecipient[11]"        "RiskRecipient[12]"        "RiskRecipient[13]"       
 [88] "RiskRecipient[14]"        "RiskRecipient[15]"        "RiskRecipient[16]"       
 [91] "ReplacementDictator[1]"   "ReplacementDictator[2]"   "ReplacementDictator[3]"  
 [94] "ReplacementDictator[4]"   "ReplacementDictator[5]"   "ReplacementDictator[6]"  
 [97] "ReplacementDictator[7]"   "ReplacementDictator[8]"   "ReplacementDictator[9]"  
[100] "ReplacementDictator[10]"  "ReplacementDictator[11]"  "ReplacementDictator[12]" 
[103] "ReplacementDictator[13]"  "ReplacementDictator[14]"  "ReplacementDictator[15]" 
[106] "ReplacementDictator[16]"  "ReplacementRecipient[1]"  "ReplacementRecipient[2]" 
[109] "ReplacementRecipient[3]"  "ReplacementRecipient[4]"  "ReplacementRecipient[5]" 
[112] "ReplacementRecipient[6]"  "ReplacementRecipient[7]"  "ReplacementRecipient[8]" 
[115] "ReplacementRecipient[9]"  "ReplacementRecipient[10]" "ReplacementRecipient[11]"
[118] "ReplacementRecipient[12]" "ReplacementRecipient[13]" "ReplacementRecipient[14]"
[121] "ReplacementRecipient[15]" "ReplacementRecipient[16]" "give[1]"                 
[124] "give[2]"                  "give[3]"                  "give[4]"                 
[127] "give[5]"                  "give[6]"                  "give[7]"                 
[130] "give[8]"                  "give[9]"                  "give[10]"                
[133] "give[11]"                 "give[12]"                 "give[13]"                
[136] "give[14]"                 "give[15]"                 "give[16]"                
[139] "transfer[1]"              "transfer[2]"              "transfer[3]"             
[142] "transfer[4]"              "transfer[5]"              "transfer[6]"             
[145] "transfer[7]"              "transfer[8]"              "transfer[9]"             
[148] "transfer[10]"             "transfer[11]"             "transfer[12]"            
[151] "transfer[13]"             "transfer[14]"             "transfer[15]"            
[154] "transfer[16]"             "winDictator[1]"           "winDictator[2]"          
[157] "winDictator[3]"           "winDictator[4]"           "winDictator[5]"          
[160] "winDictator[6]"           "winDictator[7]"           "winDictator[8]"          
[163] "winDictator[9]"           "winDictator[10]"          "winDictator[11]"         
[166] "winDictator[12]"          "winDictator[13]"          "winDictator[14]"         
[169] "winDictator[15]"          "winDictator[16]"          "winRecipient[1]"         
[172] "winRecipient[2]"          "winRecipient[3]"          "winRecipient[4]"         
[175] "winRecipient[5]"          "winRecipient[6]"          "winRecipient[7]"         
[178] "winRecipient[8]"          "winRecipient[9]"          "winRecipient[10]"        
[181] "winRecipient[11]"         "winRecipient[12]"         "winRecipient[13]"        
[184] "winRecipient[14]"         "winRecipient[15]"         "winRecipient[16]"        
[187] "ProfitDictator[1]"        "ProfitDictator[2]"        "ProfitDictator[3]"       
[190] "ProfitDictator[4]"        "ProfitDictator[5]"        "ProfitDictator[6]"       
[193] "ProfitDictator[7]"        "ProfitDictator[8]"        "ProfitDictator[9]"       
[196] "ProfitDictator[10]"       "ProfitDictator[11]"       "ProfitDictator[12]"      
[199] "ProfitDictator[13]"       "ProfitDictator[14]"       "ProfitDictator[15]"      
[202] "ProfitDictator[16]"       "ProfitRecipient[1]"       "ProfitRecipient[2]"      
[205] "ProfitRecipient[3]"       "ProfitRecipient[4]"       "ProfitRecipient[5]"      
[208] "ProfitRecipient[6]"       "ProfitRecipient[7]"       "ProfitRecipient[8]"      
[211] "ProfitRecipient[9]"       "ProfitRecipient[10]"      "ProfitRecipient[11]"     
[214] "ProfitRecipient[12]"      "ProfitRecipient[13]"      "ProfitRecipient[14]"     
[217] "ProfitRecipient[15]"      "ProfitRecipient[16]"      "Round[1]"                
[220] "Round[2]"                 "Round[3]"                 "Round[4]"                
[223] "Round[5]"                 "Round[6]"                 "Round[7]"                
[226] "Round[8]"                 "Round[9]"                 "Round[10]"               
[229] "Round[11]"                "Round[12]"                "Round[13]"               
[232] "Round[14]"                "Round[15]"                "Round[16]"               
[235] "rdmRound[1]"              "rdmRound[2]"              "rdmRound[3]"             
[238] "rdmRound[4]"              "rdmRound[5]"              "rdmRound[6]"             
[241] "rdmRound[7]"              "rdmRound[8]"              "rdmRound[9]"             
[244] "rdmRound[10]"             "rdmRound[11]"             "rdmRound[12]"            
[247] "rdmRound[13]"             "rdmRound[14]"             "rdmRound[15]"            
[250] "rdmRound[16]"             "Role[1]"                  "Role[2]"                 
[253] "Role[3]"                  "Role[4]"                  "Role[5]"                 
[256] "Role[6]"                  "Role[7]"                  "Role[8]"                 
[259] "Role[9]"                  "Role[10]"                 "Role[11]"                
[262] "Role[12]"                 "Role[13]"                 "Role[14]"                
[265] "Role[15]"                 "Role[16]"                 "Group[1]"                
[268] "Group[2]"                 "Group[3]"                 "Group[4]"                
[271] "Group[5]"                 "Group[6]"                 "Group[7]"                
[274] "Group[8]"                 "Group[9]"                 "Group[10]"               
[277] "Group[11]"                "Group[12]"                "Group[13]"               
[280] "Group[14]"                "Group[15]"                "Group[16]"               
[283] "numClicks[1]"             "numClicks[2]"             "numClicks[3]"            
[286] "numClicks[4]"             "numClicks[5]"             "numClicks[6]"            
[289] "numClicks[7]"             "numClicks[8]"             "numClicks[9]"            
[292] "numClicks[10]"            "numClicks[11]"            "numClicks[12]"           
[295] "numClicks[13]"            "numClicks[14]"            "numClicks[15]"           
[298] "numClicks[16]"            "rdmNumRisk[1]"            "rdmNumRisk[2]"           
[301] "rdmNumRisk[3]"            "rdmNumRisk[4]"            "rdmNumRisk[5]"           
[304] "rdmNumRisk[6]"            "rdmNumRisk[7]"            "rdmNumRisk[8]"           
[307] "rdmNumRisk[9]"            "risk_decision[1]"         "risk_decision[2]"        
[310] "risk_decision[3]"         "risk_decision[4]"         "risk_decision[5]"        
[313] "risk_decision[6]"         "risk_decision[7]"         "risk_decision[8]"        
[316] "risk_decision[9]"         "risk_outcome[1]"          "risk_outcome[2]"         
[319] "risk_outcome[3]"          "risk_outcome[4]"          "risk_outcome[5]"         
[322] "risk_outcome[6]"          "risk_outcome[7]"          "risk_outcome[8]"         
[325] "risk_outcome[9]"          "Rate"                     "numRounds"               
[328] "i"                        "counter"                  "numRoundsRisk"           
[331] "p"                        "j"                        "k"                       
[334] "pay_dictator"             "pay_recipient"            "pay_risk"                
[337] "Date.y"                   "Subject.y"                "client"                  
[340] "age"                      "major"                    "gender"                  
[343] "religion"                 "rel_group"                "income_fam"              
[346] "polintr"                  "leftright"                "party"                   
[349] "stfgov"                   "gincdif"                  "equalopt"                
[352] "sucess"                   "instr"                    "change"                  
[355] "changes_reason"          

> s[,59]
  [1] 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025
 [16] 0.025 0.025 0.025 0.025 0.025 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200
 [31] 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200
 [46] 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200
 [61] 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200
 [76] 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200
 [91] 0.200 0.200 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.200
[106] 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200
[121] 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200
[136] 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200
[151] 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200
[166] 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200

> for(i in 1:16) { 
+   nam <- paste("RiskDictator", i, sep = "_")
+   assign(nam, s[,58+i]) ##start with -1
+ }

> s$`RiskDictator[11]`
  [1] 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200
 [16] 0.200 0.200 0.200 0.200 0.200 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025
 [31] 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.200 0.200 0.200
 [46] 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200
 [61] 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200
 [76] 0.200 0.200 0.200 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
 [91] 0.000 0.000 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.000
[106] 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
[121] 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
[136] 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
[151] 0.000 0.000 0.000 0.000 0.000 0.000 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025
[166] 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025

> RiskDictator_11
  [1] 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200
 [16] 0.200 0.200 0.200 0.200 0.200 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025
 [31] 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.200 0.200 0.200
 [46] 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200
 [61] 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200
 [76] 0.200 0.200 0.200 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
 [91] 0.000 0.000 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.000
[106] 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
[121] 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
[136] 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
[151] 0.000 0.000 0.000 0.000 0.000 0.000 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025
[166] 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025

> ##########################
> 
> 
> #Risk recipient
> names(s)
  [1] "ID"                       "Date.x"                   "Treatment"               
  [4] "Subject.x"                "FinalProfit"              "ShowUpFee"               
  [7] "ShowUpFeeInvested"        "MoneyAdded"               "MoneyToPay"              
 [10] "MoneyEarned"              "total[1]"                 "total[2]"                
 [13] "total[3]"                 "total[4]"                 "total[5]"                
 [16] "total[6]"                 "total[7]"                 "total[8]"                
 [19] "total[9]"                 "total[10]"                "total[11]"               
 [22] "total[12]"                "total[13]"                "total[14]"               
 [25] "total[15]"                "total[16]"                "EndowmentDictator[1]"    
 [28] "EndowmentDictator[2]"     "EndowmentDictator[3]"     "EndowmentDictator[4]"    
 [31] "EndowmentDictator[5]"     "EndowmentDictator[6]"     "EndowmentDictator[7]"    
 [34] "EndowmentDictator[8]"     "EndowmentDictator[9]"     "EndowmentDictator[10]"   
 [37] "EndowmentDictator[11]"    "EndowmentDictator[12]"    "EndowmentDictator[13]"   
 [40] "EndowmentDictator[14]"    "EndowmentDictator[15]"    "EndowmentDictator[16]"   
 [43] "EndowmentRecipient[1]"    "EndowmentRecipient[2]"    "EndowmentRecipient[3]"   
 [46] "EndowmentRecipient[4]"    "EndowmentRecipient[5]"    "EndowmentRecipient[6]"   
 [49] "EndowmentRecipient[7]"    "EndowmentRecipient[8]"    "EndowmentRecipient[9]"   
 [52] "EndowmentRecipient[10]"   "EndowmentRecipient[11]"   "EndowmentRecipient[12]"  
 [55] "EndowmentRecipient[13]"   "EndowmentRecipient[14]"   "EndowmentRecipient[15]"  
 [58] "EndowmentRecipient[16]"   "RiskDictator[1]"          "RiskDictator[2]"         
 [61] "RiskDictator[3]"          "RiskDictator[4]"          "RiskDictator[5]"         
 [64] "RiskDictator[6]"          "RiskDictator[7]"          "RiskDictator[8]"         
 [67] "RiskDictator[9]"          "RiskDictator[10]"         "RiskDictator[11]"        
 [70] "RiskDictator[12]"         "RiskDictator[13]"         "RiskDictator[14]"        
 [73] "RiskDictator[15]"         "RiskDictator[16]"         "RiskRecipient[1]"        
 [76] "RiskRecipient[2]"         "RiskRecipient[3]"         "RiskRecipient[4]"        
 [79] "RiskRecipient[5]"         "RiskRecipient[6]"         "RiskRecipient[7]"        
 [82] "RiskRecipient[8]"         "RiskRecipient[9]"         "RiskRecipient[10]"       
 [85] "RiskRecipient[11]"        "RiskRecipient[12]"        "RiskRecipient[13]"       
 [88] "RiskRecipient[14]"        "RiskRecipient[15]"        "RiskRecipient[16]"       
 [91] "ReplacementDictator[1]"   "ReplacementDictator[2]"   "ReplacementDictator[3]"  
 [94] "ReplacementDictator[4]"   "ReplacementDictator[5]"   "ReplacementDictator[6]"  
 [97] "ReplacementDictator[7]"   "ReplacementDictator[8]"   "ReplacementDictator[9]"  
[100] "ReplacementDictator[10]"  "ReplacementDictator[11]"  "ReplacementDictator[12]" 
[103] "ReplacementDictator[13]"  "ReplacementDictator[14]"  "ReplacementDictator[15]" 
[106] "ReplacementDictator[16]"  "ReplacementRecipient[1]"  "ReplacementRecipient[2]" 
[109] "ReplacementRecipient[3]"  "ReplacementRecipient[4]"  "ReplacementRecipient[5]" 
[112] "ReplacementRecipient[6]"  "ReplacementRecipient[7]"  "ReplacementRecipient[8]" 
[115] "ReplacementRecipient[9]"  "ReplacementRecipient[10]" "ReplacementRecipient[11]"
[118] "ReplacementRecipient[12]" "ReplacementRecipient[13]" "ReplacementRecipient[14]"
[121] "ReplacementRecipient[15]" "ReplacementRecipient[16]" "give[1]"                 
[124] "give[2]"                  "give[3]"                  "give[4]"                 
[127] "give[5]"                  "give[6]"                  "give[7]"                 
[130] "give[8]"                  "give[9]"                  "give[10]"                
[133] "give[11]"                 "give[12]"                 "give[13]"                
[136] "give[14]"                 "give[15]"                 "give[16]"                
[139] "transfer[1]"              "transfer[2]"              "transfer[3]"             
[142] "transfer[4]"              "transfer[5]"              "transfer[6]"             
[145] "transfer[7]"              "transfer[8]"              "transfer[9]"             
[148] "transfer[10]"             "transfer[11]"             "transfer[12]"            
[151] "transfer[13]"             "transfer[14]"             "transfer[15]"            
[154] "transfer[16]"             "winDictator[1]"           "winDictator[2]"          
[157] "winDictator[3]"           "winDictator[4]"           "winDictator[5]"          
[160] "winDictator[6]"           "winDictator[7]"           "winDictator[8]"          
[163] "winDictator[9]"           "winDictator[10]"          "winDictator[11]"         
[166] "winDictator[12]"          "winDictator[13]"          "winDictator[14]"         
[169] "winDictator[15]"          "winDictator[16]"          "winRecipient[1]"         
[172] "winRecipient[2]"          "winRecipient[3]"          "winRecipient[4]"         
[175] "winRecipient[5]"          "winRecipient[6]"          "winRecipient[7]"         
[178] "winRecipient[8]"          "winRecipient[9]"          "winRecipient[10]"        
[181] "winRecipient[11]"         "winRecipient[12]"         "winRecipient[13]"        
[184] "winRecipient[14]"         "winRecipient[15]"         "winRecipient[16]"        
[187] "ProfitDictator[1]"        "ProfitDictator[2]"        "ProfitDictator[3]"       
[190] "ProfitDictator[4]"        "ProfitDictator[5]"        "ProfitDictator[6]"       
[193] "ProfitDictator[7]"        "ProfitDictator[8]"        "ProfitDictator[9]"       
[196] "ProfitDictator[10]"       "ProfitDictator[11]"       "ProfitDictator[12]"      
[199] "ProfitDictator[13]"       "ProfitDictator[14]"       "ProfitDictator[15]"      
[202] "ProfitDictator[16]"       "ProfitRecipient[1]"       "ProfitRecipient[2]"      
[205] "ProfitRecipient[3]"       "ProfitRecipient[4]"       "ProfitRecipient[5]"      
[208] "ProfitRecipient[6]"       "ProfitRecipient[7]"       "ProfitRecipient[8]"      
[211] "ProfitRecipient[9]"       "ProfitRecipient[10]"      "ProfitRecipient[11]"     
[214] "ProfitRecipient[12]"      "ProfitRecipient[13]"      "ProfitRecipient[14]"     
[217] "ProfitRecipient[15]"      "ProfitRecipient[16]"      "Round[1]"                
[220] "Round[2]"                 "Round[3]"                 "Round[4]"                
[223] "Round[5]"                 "Round[6]"                 "Round[7]"                
[226] "Round[8]"                 "Round[9]"                 "Round[10]"               
[229] "Round[11]"                "Round[12]"                "Round[13]"               
[232] "Round[14]"                "Round[15]"                "Round[16]"               
[235] "rdmRound[1]"              "rdmRound[2]"              "rdmRound[3]"             
[238] "rdmRound[4]"              "rdmRound[5]"              "rdmRound[6]"             
[241] "rdmRound[7]"              "rdmRound[8]"              "rdmRound[9]"             
[244] "rdmRound[10]"             "rdmRound[11]"             "rdmRound[12]"            
[247] "rdmRound[13]"             "rdmRound[14]"             "rdmRound[15]"            
[250] "rdmRound[16]"             "Role[1]"                  "Role[2]"                 
[253] "Role[3]"                  "Role[4]"                  "Role[5]"                 
[256] "Role[6]"                  "Role[7]"                  "Role[8]"                 
[259] "Role[9]"                  "Role[10]"                 "Role[11]"                
[262] "Role[12]"                 "Role[13]"                 "Role[14]"                
[265] "Role[15]"                 "Role[16]"                 "Group[1]"                
[268] "Group[2]"                 "Group[3]"                 "Group[4]"                
[271] "Group[5]"                 "Group[6]"                 "Group[7]"                
[274] "Group[8]"                 "Group[9]"                 "Group[10]"               
[277] "Group[11]"                "Group[12]"                "Group[13]"               
[280] "Group[14]"                "Group[15]"                "Group[16]"               
[283] "numClicks[1]"             "numClicks[2]"             "numClicks[3]"            
[286] "numClicks[4]"             "numClicks[5]"             "numClicks[6]"            
[289] "numClicks[7]"             "numClicks[8]"             "numClicks[9]"            
[292] "numClicks[10]"            "numClicks[11]"            "numClicks[12]"           
[295] "numClicks[13]"            "numClicks[14]"            "numClicks[15]"           
[298] "numClicks[16]"            "rdmNumRisk[1]"            "rdmNumRisk[2]"           
[301] "rdmNumRisk[3]"            "rdmNumRisk[4]"            "rdmNumRisk[5]"           
[304] "rdmNumRisk[6]"            "rdmNumRisk[7]"            "rdmNumRisk[8]"           
[307] "rdmNumRisk[9]"            "risk_decision[1]"         "risk_decision[2]"        
[310] "risk_decision[3]"         "risk_decision[4]"         "risk_decision[5]"        
[313] "risk_decision[6]"         "risk_decision[7]"         "risk_decision[8]"        
[316] "risk_decision[9]"         "risk_outcome[1]"          "risk_outcome[2]"         
[319] "risk_outcome[3]"          "risk_outcome[4]"          "risk_outcome[5]"         
[322] "risk_outcome[6]"          "risk_outcome[7]"          "risk_outcome[8]"         
[325] "risk_outcome[9]"          "Rate"                     "numRounds"               
[328] "i"                        "counter"                  "numRoundsRisk"           
[331] "p"                        "j"                        "k"                       
[334] "pay_dictator"             "pay_recipient"            "pay_risk"                
[337] "Date.y"                   "Subject.y"                "client"                  
[340] "age"                      "major"                    "gender"                  
[343] "religion"                 "rel_group"                "income_fam"              
[346] "polintr"                  "leftright"                "party"                   
[349] "stfgov"                   "gincdif"                  "equalopt"                
[352] "sucess"                   "instr"                    "change"                  
[355] "changes_reason"          

> s[,75]
  [1] 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025
 [16] 0.025 0.025 0.025 0.025 0.025 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200
 [31] 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200
 [46] 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200
 [61] 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200
 [76] 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200
 [91] 0.200 0.200 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.200
[106] 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200
[121] 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200
[136] 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200
[151] 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200
[166] 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200

> for(i in 1:16) { 
+   nam <- paste("RiskRecipient", i, sep = "_")
+   assign(nam, s[,74+i]) ##start with -1
+ }

> s$`RiskRecipient[16]`
  [1] 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025
 [16] 0.025 0.025 0.025 0.025 0.025 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200
 [31] 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200
 [46] 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200
 [61] 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200
 [76] 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200
 [91] 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200
[106] 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.000 0.000
[121] 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
[136] 0.000 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200
[151] 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200
[166] 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200

> RiskRecipient_16
  [1] 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025 0.025
 [16] 0.025 0.025 0.025 0.025 0.025 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200
 [31] 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200
 [46] 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200
 [61] 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200
 [76] 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200
 [91] 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200
[106] 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.000 0.000
[121] 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
[136] 0.000 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200
[151] 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200
[166] 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200 0.200

> ##########################
> 
> 
> #Replacement dictator
> names(s)
  [1] "ID"                       "Date.x"                   "Treatment"               
  [4] "Subject.x"                "FinalProfit"              "ShowUpFee"               
  [7] "ShowUpFeeInvested"        "MoneyAdded"               "MoneyToPay"              
 [10] "MoneyEarned"              "total[1]"                 "total[2]"                
 [13] "total[3]"                 "total[4]"                 "total[5]"                
 [16] "total[6]"                 "total[7]"                 "total[8]"                
 [19] "total[9]"                 "total[10]"                "total[11]"               
 [22] "total[12]"                "total[13]"                "total[14]"               
 [25] "total[15]"                "total[16]"                "EndowmentDictator[1]"    
 [28] "EndowmentDictator[2]"     "EndowmentDictator[3]"     "EndowmentDictator[4]"    
 [31] "EndowmentDictator[5]"     "EndowmentDictator[6]"     "EndowmentDictator[7]"    
 [34] "EndowmentDictator[8]"     "EndowmentDictator[9]"     "EndowmentDictator[10]"   
 [37] "EndowmentDictator[11]"    "EndowmentDictator[12]"    "EndowmentDictator[13]"   
 [40] "EndowmentDictator[14]"    "EndowmentDictator[15]"    "EndowmentDictator[16]"   
 [43] "EndowmentRecipient[1]"    "EndowmentRecipient[2]"    "EndowmentRecipient[3]"   
 [46] "EndowmentRecipient[4]"    "EndowmentRecipient[5]"    "EndowmentRecipient[6]"   
 [49] "EndowmentRecipient[7]"    "EndowmentRecipient[8]"    "EndowmentRecipient[9]"   
 [52] "EndowmentRecipient[10]"   "EndowmentRecipient[11]"   "EndowmentRecipient[12]"  
 [55] "EndowmentRecipient[13]"   "EndowmentRecipient[14]"   "EndowmentRecipient[15]"  
 [58] "EndowmentRecipient[16]"   "RiskDictator[1]"          "RiskDictator[2]"         
 [61] "RiskDictator[3]"          "RiskDictator[4]"          "RiskDictator[5]"         
 [64] "RiskDictator[6]"          "RiskDictator[7]"          "RiskDictator[8]"         
 [67] "RiskDictator[9]"          "RiskDictator[10]"         "RiskDictator[11]"        
 [70] "RiskDictator[12]"         "RiskDictator[13]"         "RiskDictator[14]"        
 [73] "RiskDictator[15]"         "RiskDictator[16]"         "RiskRecipient[1]"        
 [76] "RiskRecipient[2]"         "RiskRecipient[3]"         "RiskRecipient[4]"        
 [79] "RiskRecipient[5]"         "RiskRecipient[6]"         "RiskRecipient[7]"        
 [82] "RiskRecipient[8]"         "RiskRecipient[9]"         "RiskRecipient[10]"       
 [85] "RiskRecipient[11]"        "RiskRecipient[12]"        "RiskRecipient[13]"       
 [88] "RiskRecipient[14]"        "RiskRecipient[15]"        "RiskRecipient[16]"       
 [91] "ReplacementDictator[1]"   "ReplacementDictator[2]"   "ReplacementDictator[3]"  
 [94] "ReplacementDictator[4]"   "ReplacementDictator[5]"   "ReplacementDictator[6]"  
 [97] "ReplacementDictator[7]"   "ReplacementDictator[8]"   "ReplacementDictator[9]"  
[100] "ReplacementDictator[10]"  "ReplacementDictator[11]"  "ReplacementDictator[12]" 
[103] "ReplacementDictator[13]"  "ReplacementDictator[14]"  "ReplacementDictator[15]" 
[106] "ReplacementDictator[16]"  "ReplacementRecipient[1]"  "ReplacementRecipient[2]" 
[109] "ReplacementRecipient[3]"  "ReplacementRecipient[4]"  "ReplacementRecipient[5]" 
[112] "ReplacementRecipient[6]"  "ReplacementRecipient[7]"  "ReplacementRecipient[8]" 
[115] "ReplacementRecipient[9]"  "ReplacementRecipient[10]" "ReplacementRecipient[11]"
[118] "ReplacementRecipient[12]" "ReplacementRecipient[13]" "ReplacementRecipient[14]"
[121] "ReplacementRecipient[15]" "ReplacementRecipient[16]" "give[1]"                 
[124] "give[2]"                  "give[3]"                  "give[4]"                 
[127] "give[5]"                  "give[6]"                  "give[7]"                 
[130] "give[8]"                  "give[9]"                  "give[10]"                
[133] "give[11]"                 "give[12]"                 "give[13]"                
[136] "give[14]"                 "give[15]"                 "give[16]"                
[139] "transfer[1]"              "transfer[2]"              "transfer[3]"             
[142] "transfer[4]"              "transfer[5]"              "transfer[6]"             
[145] "transfer[7]"              "transfer[8]"              "transfer[9]"             
[148] "transfer[10]"             "transfer[11]"             "transfer[12]"            
[151] "transfer[13]"             "transfer[14]"             "transfer[15]"            
[154] "transfer[16]"             "winDictator[1]"           "winDictator[2]"          
[157] "winDictator[3]"           "winDictator[4]"           "winDictator[5]"          
[160] "winDictator[6]"           "winDictator[7]"           "winDictator[8]"          
[163] "winDictator[9]"           "winDictator[10]"          "winDictator[11]"         
[166] "winDictator[12]"          "winDictator[13]"          "winDictator[14]"         
[169] "winDictator[15]"          "winDictator[16]"          "winRecipient[1]"         
[172] "winRecipient[2]"          "winRecipient[3]"          "winRecipient[4]"         
[175] "winRecipient[5]"          "winRecipient[6]"          "winRecipient[7]"         
[178] "winRecipient[8]"          "winRecipient[9]"          "winRecipient[10]"        
[181] "winRecipient[11]"         "winRecipient[12]"         "winRecipient[13]"        
[184] "winRecipient[14]"         "winRecipient[15]"         "winRecipient[16]"        
[187] "ProfitDictator[1]"        "ProfitDictator[2]"        "ProfitDictator[3]"       
[190] "ProfitDictator[4]"        "ProfitDictator[5]"        "ProfitDictator[6]"       
[193] "ProfitDictator[7]"        "ProfitDictator[8]"        "ProfitDictator[9]"       
[196] "ProfitDictator[10]"       "ProfitDictator[11]"       "ProfitDictator[12]"      
[199] "ProfitDictator[13]"       "ProfitDictator[14]"       "ProfitDictator[15]"      
[202] "ProfitDictator[16]"       "ProfitRecipient[1]"       "ProfitRecipient[2]"      
[205] "ProfitRecipient[3]"       "ProfitRecipient[4]"       "ProfitRecipient[5]"      
[208] "ProfitRecipient[6]"       "ProfitRecipient[7]"       "ProfitRecipient[8]"      
[211] "ProfitRecipient[9]"       "ProfitRecipient[10]"      "ProfitRecipient[11]"     
[214] "ProfitRecipient[12]"      "ProfitRecipient[13]"      "ProfitRecipient[14]"     
[217] "ProfitRecipient[15]"      "ProfitRecipient[16]"      "Round[1]"                
[220] "Round[2]"                 "Round[3]"                 "Round[4]"                
[223] "Round[5]"                 "Round[6]"                 "Round[7]"                
[226] "Round[8]"                 "Round[9]"                 "Round[10]"               
[229] "Round[11]"                "Round[12]"                "Round[13]"               
[232] "Round[14]"                "Round[15]"                "Round[16]"               
[235] "rdmRound[1]"              "rdmRound[2]"              "rdmRound[3]"             
[238] "rdmRound[4]"              "rdmRound[5]"              "rdmRound[6]"             
[241] "rdmRound[7]"              "rdmRound[8]"              "rdmRound[9]"             
[244] "rdmRound[10]"             "rdmRound[11]"             "rdmRound[12]"            
[247] "rdmRound[13]"             "rdmRound[14]"             "rdmRound[15]"            
[250] "rdmRound[16]"             "Role[1]"                  "Role[2]"                 
[253] "Role[3]"                  "Role[4]"                  "Role[5]"                 
[256] "Role[6]"                  "Role[7]"                  "Role[8]"                 
[259] "Role[9]"                  "Role[10]"                 "Role[11]"                
[262] "Role[12]"                 "Role[13]"                 "Role[14]"                
[265] "Role[15]"                 "Role[16]"                 "Group[1]"                
[268] "Group[2]"                 "Group[3]"                 "Group[4]"                
[271] "Group[5]"                 "Group[6]"                 "Group[7]"                
[274] "Group[8]"                 "Group[9]"                 "Group[10]"               
[277] "Group[11]"                "Group[12]"                "Group[13]"               
[280] "Group[14]"                "Group[15]"                "Group[16]"               
[283] "numClicks[1]"             "numClicks[2]"             "numClicks[3]"            
[286] "numClicks[4]"             "numClicks[5]"             "numClicks[6]"            
[289] "numClicks[7]"             "numClicks[8]"             "numClicks[9]"            
[292] "numClicks[10]"            "numClicks[11]"            "numClicks[12]"           
[295] "numClicks[13]"            "numClicks[14]"            "numClicks[15]"           
[298] "numClicks[16]"            "rdmNumRisk[1]"            "rdmNumRisk[2]"           
[301] "rdmNumRisk[3]"            "rdmNumRisk[4]"            "rdmNumRisk[5]"           
[304] "rdmNumRisk[6]"            "rdmNumRisk[7]"            "rdmNumRisk[8]"           
[307] "rdmNumRisk[9]"            "risk_decision[1]"         "risk_decision[2]"        
[310] "risk_decision[3]"         "risk_decision[4]"         "risk_decision[5]"        
[313] "risk_decision[6]"         "risk_decision[7]"         "risk_decision[8]"        
[316] "risk_decision[9]"         "risk_outcome[1]"          "risk_outcome[2]"         
[319] "risk_outcome[3]"          "risk_outcome[4]"          "risk_outcome[5]"         
[322] "risk_outcome[6]"          "risk_outcome[7]"          "risk_outcome[8]"         
[325] "risk_outcome[9]"          "Rate"                     "numRounds"               
[328] "i"                        "counter"                  "numRoundsRisk"           
[331] "p"                        "j"                        "k"                       
[334] "pay_dictator"             "pay_recipient"            "pay_risk"                
[337] "Date.y"                   "Subject.y"                "client"                  
[340] "age"                      "major"                    "gender"                  
[343] "religion"                 "rel_group"                "income_fam"              
[346] "polintr"                  "leftright"                "party"                   
[349] "stfgov"                   "gincdif"                  "equalopt"                
[352] "sucess"                   "instr"                    "change"                  
[355] "changes_reason"          

> s[,91]
  [1] 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.2 0.2
 [23] 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2
 [45] 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.8 0.8
 [67] 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2
 [89] 0.2 0.2 0.2 0.2 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 0.2 0.2 0.2 0.2 0.2 0.2
[111] 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2
[133] 0.2 0.2 0.2 0.2 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8
[155] 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8

> for(i in 1:16) { 
+   nam <- paste("ReplacementDictator", i, sep = "_")
+   assign(nam, s[,90+i]) ##start with -1
+ }

> s$`ReplacementDictator[15]`
  [1] 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 0.8 0.8
 [23] 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8
 [45] 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 1.0 1.0
 [67] 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0
 [89] 1.0 1.0 1.0 1.0 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.2 0.2 0.2 0.2 0.2 0.2
[111] 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8
[133] 0.8 0.8 0.8 0.8 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2
[155] 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2

> ReplacementDictator_15
  [1] 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 0.8 0.8
 [23] 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8
 [45] 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 1.0 1.0
 [67] 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0
 [89] 1.0 1.0 1.0 1.0 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.2 0.2 0.2 0.2 0.2 0.2
[111] 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8
[133] 0.8 0.8 0.8 0.8 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2
[155] 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2

> ##########################
> 
> 
> #Replacement recipient
> names(s)
  [1] "ID"                       "Date.x"                   "Treatment"               
  [4] "Subject.x"                "FinalProfit"              "ShowUpFee"               
  [7] "ShowUpFeeInvested"        "MoneyAdded"               "MoneyToPay"              
 [10] "MoneyEarned"              "total[1]"                 "total[2]"                
 [13] "total[3]"                 "total[4]"                 "total[5]"                
 [16] "total[6]"                 "total[7]"                 "total[8]"                
 [19] "total[9]"                 "total[10]"                "total[11]"               
 [22] "total[12]"                "total[13]"                "total[14]"               
 [25] "total[15]"                "total[16]"                "EndowmentDictator[1]"    
 [28] "EndowmentDictator[2]"     "EndowmentDictator[3]"     "EndowmentDictator[4]"    
 [31] "EndowmentDictator[5]"     "EndowmentDictator[6]"     "EndowmentDictator[7]"    
 [34] "EndowmentDictator[8]"     "EndowmentDictator[9]"     "EndowmentDictator[10]"   
 [37] "EndowmentDictator[11]"    "EndowmentDictator[12]"    "EndowmentDictator[13]"   
 [40] "EndowmentDictator[14]"    "EndowmentDictator[15]"    "EndowmentDictator[16]"   
 [43] "EndowmentRecipient[1]"    "EndowmentRecipient[2]"    "EndowmentRecipient[3]"   
 [46] "EndowmentRecipient[4]"    "EndowmentRecipient[5]"    "EndowmentRecipient[6]"   
 [49] "EndowmentRecipient[7]"    "EndowmentRecipient[8]"    "EndowmentRecipient[9]"   
 [52] "EndowmentRecipient[10]"   "EndowmentRecipient[11]"   "EndowmentRecipient[12]"  
 [55] "EndowmentRecipient[13]"   "EndowmentRecipient[14]"   "EndowmentRecipient[15]"  
 [58] "EndowmentRecipient[16]"   "RiskDictator[1]"          "RiskDictator[2]"         
 [61] "RiskDictator[3]"          "RiskDictator[4]"          "RiskDictator[5]"         
 [64] "RiskDictator[6]"          "RiskDictator[7]"          "RiskDictator[8]"         
 [67] "RiskDictator[9]"          "RiskDictator[10]"         "RiskDictator[11]"        
 [70] "RiskDictator[12]"         "RiskDictator[13]"         "RiskDictator[14]"        
 [73] "RiskDictator[15]"         "RiskDictator[16]"         "RiskRecipient[1]"        
 [76] "RiskRecipient[2]"         "RiskRecipient[3]"         "RiskRecipient[4]"        
 [79] "RiskRecipient[5]"         "RiskRecipient[6]"         "RiskRecipient[7]"        
 [82] "RiskRecipient[8]"         "RiskRecipient[9]"         "RiskRecipient[10]"       
 [85] "RiskRecipient[11]"        "RiskRecipient[12]"        "RiskRecipient[13]"       
 [88] "RiskRecipient[14]"        "RiskRecipient[15]"        "RiskRecipient[16]"       
 [91] "ReplacementDictator[1]"   "ReplacementDictator[2]"   "ReplacementDictator[3]"  
 [94] "ReplacementDictator[4]"   "ReplacementDictator[5]"   "ReplacementDictator[6]"  
 [97] "ReplacementDictator[7]"   "ReplacementDictator[8]"   "ReplacementDictator[9]"  
[100] "ReplacementDictator[10]"  "ReplacementDictator[11]"  "ReplacementDictator[12]" 
[103] "ReplacementDictator[13]"  "ReplacementDictator[14]"  "ReplacementDictator[15]" 
[106] "ReplacementDictator[16]"  "ReplacementRecipient[1]"  "ReplacementRecipient[2]" 
[109] "ReplacementRecipient[3]"  "ReplacementRecipient[4]"  "ReplacementRecipient[5]" 
[112] "ReplacementRecipient[6]"  "ReplacementRecipient[7]"  "ReplacementRecipient[8]" 
[115] "ReplacementRecipient[9]"  "ReplacementRecipient[10]" "ReplacementRecipient[11]"
[118] "ReplacementRecipient[12]" "ReplacementRecipient[13]" "ReplacementRecipient[14]"
[121] "ReplacementRecipient[15]" "ReplacementRecipient[16]" "give[1]"                 
[124] "give[2]"                  "give[3]"                  "give[4]"                 
[127] "give[5]"                  "give[6]"                  "give[7]"                 
[130] "give[8]"                  "give[9]"                  "give[10]"                
[133] "give[11]"                 "give[12]"                 "give[13]"                
[136] "give[14]"                 "give[15]"                 "give[16]"                
[139] "transfer[1]"              "transfer[2]"              "transfer[3]"             
[142] "transfer[4]"              "transfer[5]"              "transfer[6]"             
[145] "transfer[7]"              "transfer[8]"              "transfer[9]"             
[148] "transfer[10]"             "transfer[11]"             "transfer[12]"            
[151] "transfer[13]"             "transfer[14]"             "transfer[15]"            
[154] "transfer[16]"             "winDictator[1]"           "winDictator[2]"          
[157] "winDictator[3]"           "winDictator[4]"           "winDictator[5]"          
[160] "winDictator[6]"           "winDictator[7]"           "winDictator[8]"          
[163] "winDictator[9]"           "winDictator[10]"          "winDictator[11]"         
[166] "winDictator[12]"          "winDictator[13]"          "winDictator[14]"         
[169] "winDictator[15]"          "winDictator[16]"          "winRecipient[1]"         
[172] "winRecipient[2]"          "winRecipient[3]"          "winRecipient[4]"         
[175] "winRecipient[5]"          "winRecipient[6]"          "winRecipient[7]"         
[178] "winRecipient[8]"          "winRecipient[9]"          "winRecipient[10]"        
[181] "winRecipient[11]"         "winRecipient[12]"         "winRecipient[13]"        
[184] "winRecipient[14]"         "winRecipient[15]"         "winRecipient[16]"        
[187] "ProfitDictator[1]"        "ProfitDictator[2]"        "ProfitDictator[3]"       
[190] "ProfitDictator[4]"        "ProfitDictator[5]"        "ProfitDictator[6]"       
[193] "ProfitDictator[7]"        "ProfitDictator[8]"        "ProfitDictator[9]"       
[196] "ProfitDictator[10]"       "ProfitDictator[11]"       "ProfitDictator[12]"      
[199] "ProfitDictator[13]"       "ProfitDictator[14]"       "ProfitDictator[15]"      
[202] "ProfitDictator[16]"       "ProfitRecipient[1]"       "ProfitRecipient[2]"      
[205] "ProfitRecipient[3]"       "ProfitRecipient[4]"       "ProfitRecipient[5]"      
[208] "ProfitRecipient[6]"       "ProfitRecipient[7]"       "ProfitRecipient[8]"      
[211] "ProfitRecipient[9]"       "ProfitRecipient[10]"      "ProfitRecipient[11]"     
[214] "ProfitRecipient[12]"      "ProfitRecipient[13]"      "ProfitRecipient[14]"     
[217] "ProfitRecipient[15]"      "ProfitRecipient[16]"      "Round[1]"                
[220] "Round[2]"                 "Round[3]"                 "Round[4]"                
[223] "Round[5]"                 "Round[6]"                 "Round[7]"                
[226] "Round[8]"                 "Round[9]"                 "Round[10]"               
[229] "Round[11]"                "Round[12]"                "Round[13]"               
[232] "Round[14]"                "Round[15]"                "Round[16]"               
[235] "rdmRound[1]"              "rdmRound[2]"              "rdmRound[3]"             
[238] "rdmRound[4]"              "rdmRound[5]"              "rdmRound[6]"             
[241] "rdmRound[7]"              "rdmRound[8]"              "rdmRound[9]"             
[244] "rdmRound[10]"             "rdmRound[11]"             "rdmRound[12]"            
[247] "rdmRound[13]"             "rdmRound[14]"             "rdmRound[15]"            
[250] "rdmRound[16]"             "Role[1]"                  "Role[2]"                 
[253] "Role[3]"                  "Role[4]"                  "Role[5]"                 
[256] "Role[6]"                  "Role[7]"                  "Role[8]"                 
[259] "Role[9]"                  "Role[10]"                 "Role[11]"                
[262] "Role[12]"                 "Role[13]"                 "Role[14]"                
[265] "Role[15]"                 "Role[16]"                 "Group[1]"                
[268] "Group[2]"                 "Group[3]"                 "Group[4]"                
[271] "Group[5]"                 "Group[6]"                 "Group[7]"                
[274] "Group[8]"                 "Group[9]"                 "Group[10]"               
[277] "Group[11]"                "Group[12]"                "Group[13]"               
[280] "Group[14]"                "Group[15]"                "Group[16]"               
[283] "numClicks[1]"             "numClicks[2]"             "numClicks[3]"            
[286] "numClicks[4]"             "numClicks[5]"             "numClicks[6]"            
[289] "numClicks[7]"             "numClicks[8]"             "numClicks[9]"            
[292] "numClicks[10]"            "numClicks[11]"            "numClicks[12]"           
[295] "numClicks[13]"            "numClicks[14]"            "numClicks[15]"           
[298] "numClicks[16]"            "rdmNumRisk[1]"            "rdmNumRisk[2]"           
[301] "rdmNumRisk[3]"            "rdmNumRisk[4]"            "rdmNumRisk[5]"           
[304] "rdmNumRisk[6]"            "rdmNumRisk[7]"            "rdmNumRisk[8]"           
[307] "rdmNumRisk[9]"            "risk_decision[1]"         "risk_decision[2]"        
[310] "risk_decision[3]"         "risk_decision[4]"         "risk_decision[5]"        
[313] "risk_decision[6]"         "risk_decision[7]"         "risk_decision[8]"        
[316] "risk_decision[9]"         "risk_outcome[1]"          "risk_outcome[2]"         
[319] "risk_outcome[3]"          "risk_outcome[4]"          "risk_outcome[5]"         
[322] "risk_outcome[6]"          "risk_outcome[7]"          "risk_outcome[8]"         
[325] "risk_outcome[9]"          "Rate"                     "numRounds"               
[328] "i"                        "counter"                  "numRoundsRisk"           
[331] "p"                        "j"                        "k"                       
[334] "pay_dictator"             "pay_recipient"            "pay_risk"                
[337] "Date.y"                   "Subject.y"                "client"                  
[340] "age"                      "major"                    "gender"                  
[343] "religion"                 "rel_group"                "income_fam"              
[346] "polintr"                  "leftright"                "party"                   
[349] "stfgov"                   "gincdif"                  "equalopt"                
[352] "sucess"                   "instr"                    "change"                  
[355] "changes_reason"          

> s[,107]
  [1] 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8
 [23] 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8
 [45] 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.2 0.2
 [67] 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2
 [89] 0.2 0.2 0.2 0.2 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 0.2 0.2 0.2 0.2 0.2 0.2
[111] 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2
[133] 0.2 0.2 0.2 0.2 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8
[155] 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8

> for(i in 1:16) { 
+   nam <- paste("ReplacementRecipient", i, sep = "_")
+   assign(nam, s[,106+i]) ##start with -1
+ }

> s$`ReplacementRecipient[12]`
  [1] 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 0.2 0.2
 [23] 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.8 0.8
 [45] 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.2 0.2
 [67] 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2
 [89] 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2
[111] 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8
[133] 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8
[155] 0.8 0.8 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0

> ReplacementRecipient_12
  [1] 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 0.2 0.2
 [23] 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.8 0.8
 [45] 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.2 0.2
 [67] 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2
 [89] 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2
[111] 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8
[133] 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8 0.8
[155] 0.8 0.8 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0

> ##########################
> 
> 
> #Win lottery dictator
> names(s)
  [1] "ID"                       "Date.x"                   "Treatment"               
  [4] "Subject.x"                "FinalProfit"              "ShowUpFee"               
  [7] "ShowUpFeeInvested"        "MoneyAdded"               "MoneyToPay"              
 [10] "MoneyEarned"              "total[1]"                 "total[2]"                
 [13] "total[3]"                 "total[4]"                 "total[5]"                
 [16] "total[6]"                 "total[7]"                 "total[8]"                
 [19] "total[9]"                 "total[10]"                "total[11]"               
 [22] "total[12]"                "total[13]"                "total[14]"               
 [25] "total[15]"                "total[16]"                "EndowmentDictator[1]"    
 [28] "EndowmentDictator[2]"     "EndowmentDictator[3]"     "EndowmentDictator[4]"    
 [31] "EndowmentDictator[5]"     "EndowmentDictator[6]"     "EndowmentDictator[7]"    
 [34] "EndowmentDictator[8]"     "EndowmentDictator[9]"     "EndowmentDictator[10]"   
 [37] "EndowmentDictator[11]"    "EndowmentDictator[12]"    "EndowmentDictator[13]"   
 [40] "EndowmentDictator[14]"    "EndowmentDictator[15]"    "EndowmentDictator[16]"   
 [43] "EndowmentRecipient[1]"    "EndowmentRecipient[2]"    "EndowmentRecipient[3]"   
 [46] "EndowmentRecipient[4]"    "EndowmentRecipient[5]"    "EndowmentRecipient[6]"   
 [49] "EndowmentRecipient[7]"    "EndowmentRecipient[8]"    "EndowmentRecipient[9]"   
 [52] "EndowmentRecipient[10]"   "EndowmentRecipient[11]"   "EndowmentRecipient[12]"  
 [55] "EndowmentRecipient[13]"   "EndowmentRecipient[14]"   "EndowmentRecipient[15]"  
 [58] "EndowmentRecipient[16]"   "RiskDictator[1]"          "RiskDictator[2]"         
 [61] "RiskDictator[3]"          "RiskDictator[4]"          "RiskDictator[5]"         
 [64] "RiskDictator[6]"          "RiskDictator[7]"          "RiskDictator[8]"         
 [67] "RiskDictator[9]"          "RiskDictator[10]"         "RiskDictator[11]"        
 [70] "RiskDictator[12]"         "RiskDictator[13]"         "RiskDictator[14]"        
 [73] "RiskDictator[15]"         "RiskDictator[16]"         "RiskRecipient[1]"        
 [76] "RiskRecipient[2]"         "RiskRecipient[3]"         "RiskRecipient[4]"        
 [79] "RiskRecipient[5]"         "RiskRecipient[6]"         "RiskRecipient[7]"        
 [82] "RiskRecipient[8]"         "RiskRecipient[9]"         "RiskRecipient[10]"       
 [85] "RiskRecipient[11]"        "RiskRecipient[12]"        "RiskRecipient[13]"       
 [88] "RiskRecipient[14]"        "RiskRecipient[15]"        "RiskRecipient[16]"       
 [91] "ReplacementDictator[1]"   "ReplacementDictator[2]"   "ReplacementDictator[3]"  
 [94] "ReplacementDictator[4]"   "ReplacementDictator[5]"   "ReplacementDictator[6]"  
 [97] "ReplacementDictator[7]"   "ReplacementDictator[8]"   "ReplacementDictator[9]"  
[100] "ReplacementDictator[10]"  "ReplacementDictator[11]"  "ReplacementDictator[12]" 
[103] "ReplacementDictator[13]"  "ReplacementDictator[14]"  "ReplacementDictator[15]" 
[106] "ReplacementDictator[16]"  "ReplacementRecipient[1]"  "ReplacementRecipient[2]" 
[109] "ReplacementRecipient[3]"  "ReplacementRecipient[4]"  "ReplacementRecipient[5]" 
[112] "ReplacementRecipient[6]"  "ReplacementRecipient[7]"  "ReplacementRecipient[8]" 
[115] "ReplacementRecipient[9]"  "ReplacementRecipient[10]" "ReplacementRecipient[11]"
[118] "ReplacementRecipient[12]" "ReplacementRecipient[13]" "ReplacementRecipient[14]"
[121] "ReplacementRecipient[15]" "ReplacementRecipient[16]" "give[1]"                 
[124] "give[2]"                  "give[3]"                  "give[4]"                 
[127] "give[5]"                  "give[6]"                  "give[7]"                 
[130] "give[8]"                  "give[9]"                  "give[10]"                
[133] "give[11]"                 "give[12]"                 "give[13]"                
[136] "give[14]"                 "give[15]"                 "give[16]"                
[139] "transfer[1]"              "transfer[2]"              "transfer[3]"             
[142] "transfer[4]"              "transfer[5]"              "transfer[6]"             
[145] "transfer[7]"              "transfer[8]"              "transfer[9]"             
[148] "transfer[10]"             "transfer[11]"             "transfer[12]"            
[151] "transfer[13]"             "transfer[14]"             "transfer[15]"            
[154] "transfer[16]"             "winDictator[1]"           "winDictator[2]"          
[157] "winDictator[3]"           "winDictator[4]"           "winDictator[5]"          
[160] "winDictator[6]"           "winDictator[7]"           "winDictator[8]"          
[163] "winDictator[9]"           "winDictator[10]"          "winDictator[11]"         
[166] "winDictator[12]"          "winDictator[13]"          "winDictator[14]"         
[169] "winDictator[15]"          "winDictator[16]"          "winRecipient[1]"         
[172] "winRecipient[2]"          "winRecipient[3]"          "winRecipient[4]"         
[175] "winRecipient[5]"          "winRecipient[6]"          "winRecipient[7]"         
[178] "winRecipient[8]"          "winRecipient[9]"          "winRecipient[10]"        
[181] "winRecipient[11]"         "winRecipient[12]"         "winRecipient[13]"        
[184] "winRecipient[14]"         "winRecipient[15]"         "winRecipient[16]"        
[187] "ProfitDictator[1]"        "ProfitDictator[2]"        "ProfitDictator[3]"       
[190] "ProfitDictator[4]"        "ProfitDictator[5]"        "ProfitDictator[6]"       
[193] "ProfitDictator[7]"        "ProfitDictator[8]"        "ProfitDictator[9]"       
[196] "ProfitDictator[10]"       "ProfitDictator[11]"       "ProfitDictator[12]"      
[199] "ProfitDictator[13]"       "ProfitDictator[14]"       "ProfitDictator[15]"      
[202] "ProfitDictator[16]"       "ProfitRecipient[1]"       "ProfitRecipient[2]"      
[205] "ProfitRecipient[3]"       "ProfitRecipient[4]"       "ProfitRecipient[5]"      
[208] "ProfitRecipient[6]"       "ProfitRecipient[7]"       "ProfitRecipient[8]"      
[211] "ProfitRecipient[9]"       "ProfitRecipient[10]"      "ProfitRecipient[11]"     
[214] "ProfitRecipient[12]"      "ProfitRecipient[13]"      "ProfitRecipient[14]"     
[217] "ProfitRecipient[15]"      "ProfitRecipient[16]"      "Round[1]"                
[220] "Round[2]"                 "Round[3]"                 "Round[4]"                
[223] "Round[5]"                 "Round[6]"                 "Round[7]"                
[226] "Round[8]"                 "Round[9]"                 "Round[10]"               
[229] "Round[11]"                "Round[12]"                "Round[13]"               
[232] "Round[14]"                "Round[15]"                "Round[16]"               
[235] "rdmRound[1]"              "rdmRound[2]"              "rdmRound[3]"             
[238] "rdmRound[4]"              "rdmRound[5]"              "rdmRound[6]"             
[241] "rdmRound[7]"              "rdmRound[8]"              "rdmRound[9]"             
[244] "rdmRound[10]"             "rdmRound[11]"             "rdmRound[12]"            
[247] "rdmRound[13]"             "rdmRound[14]"             "rdmRound[15]"            
[250] "rdmRound[16]"             "Role[1]"                  "Role[2]"                 
[253] "Role[3]"                  "Role[4]"                  "Role[5]"                 
[256] "Role[6]"                  "Role[7]"                  "Role[8]"                 
[259] "Role[9]"                  "Role[10]"                 "Role[11]"                
[262] "Role[12]"                 "Role[13]"                 "Role[14]"                
[265] "Role[15]"                 "Role[16]"                 "Group[1]"                
[268] "Group[2]"                 "Group[3]"                 "Group[4]"                
[271] "Group[5]"                 "Group[6]"                 "Group[7]"                
[274] "Group[8]"                 "Group[9]"                 "Group[10]"               
[277] "Group[11]"                "Group[12]"                "Group[13]"               
[280] "Group[14]"                "Group[15]"                "Group[16]"               
[283] "numClicks[1]"             "numClicks[2]"             "numClicks[3]"            
[286] "numClicks[4]"             "numClicks[5]"             "numClicks[6]"            
[289] "numClicks[7]"             "numClicks[8]"             "numClicks[9]"            
[292] "numClicks[10]"            "numClicks[11]"            "numClicks[12]"           
[295] "numClicks[13]"            "numClicks[14]"            "numClicks[15]"           
[298] "numClicks[16]"            "rdmNumRisk[1]"            "rdmNumRisk[2]"           
[301] "rdmNumRisk[3]"            "rdmNumRisk[4]"            "rdmNumRisk[5]"           
[304] "rdmNumRisk[6]"            "rdmNumRisk[7]"            "rdmNumRisk[8]"           
[307] "rdmNumRisk[9]"            "risk_decision[1]"         "risk_decision[2]"        
[310] "risk_decision[3]"         "risk_decision[4]"         "risk_decision[5]"        
[313] "risk_decision[6]"         "risk_decision[7]"         "risk_decision[8]"        
[316] "risk_decision[9]"         "risk_outcome[1]"          "risk_outcome[2]"         
[319] "risk_outcome[3]"          "risk_outcome[4]"          "risk_outcome[5]"         
[322] "risk_outcome[6]"          "risk_outcome[7]"          "risk_outcome[8]"         
[325] "risk_outcome[9]"          "Rate"                     "numRounds"               
[328] "i"                        "counter"                  "numRoundsRisk"           
[331] "p"                        "j"                        "k"                       
[334] "pay_dictator"             "pay_recipient"            "pay_risk"                
[337] "Date.y"                   "Subject.y"                "client"                  
[340] "age"                      "major"                    "gender"                  
[343] "religion"                 "rel_group"                "income_fam"              
[346] "polintr"                  "leftright"                "party"                   
[349] "stfgov"                   "gincdif"                  "equalopt"                
[352] "sucess"                   "instr"                    "change"                  
[355] "changes_reason"          

> s[,155]
  [1] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 1 0 1 1 0 1 1 1 1 1 1 0 0 1 1 0 1 1
 [46] 1 1 1 0 1 1 1 1 1 1 1 1 1 1 0 1 0 1 1 1 0 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 0 1 0 1 1 1 0 1 0
 [91] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 1 0 1 0 0 1 1 0 1 1 1 0 1 0 1 0 1 1 1 1 1 0
[136] 0 1 0 0 1 1 1 1 1 0 1 1 1 1 0 1 0 1 0 1 1 1 1 1 0 0 1 1 1 1 1 1 1 1 1 0 0 1 1

> for(i in 1:16) { 
+   nam <- paste("winDictator", i, sep = "_")
+   assign(nam, s[,154+i]) ##start with -1
+ }

> s$`winDictator[16]`
  [1] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 1 0 1 1 1 1 1 1 1 1 1 0 0 1 0 1 1 1 1 1 0 1 0
 [46] 0 1 1 0 0 1 1 1 1 0 1 0 0 1 0 1 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 0 1 1 1 1 1 1 1 1 0
 [91] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
[136] 1 1 1 1 1 0 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 0 1 0 1 0 1 0 0 1 0 0 0 0 1 1 0 1 1

> winDictator_16
  [1] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 1 0 1 1 1 1 1 1 1 1 1 0 0 1 0 1 1 1 1 1 0 1 0
 [46] 0 1 1 0 0 1 1 1 1 0 1 0 0 1 0 1 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 0 1 1 1 1 1 1 1 1 0
 [91] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
[136] 1 1 1 1 1 0 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 0 1 0 1 0 1 0 0 1 0 0 0 0 1 1 0 1 1

> ##########################
> 
> 
> #Win lottery recipient
> names(s)
  [1] "ID"                       "Date.x"                   "Treatment"               
  [4] "Subject.x"                "FinalProfit"              "ShowUpFee"               
  [7] "ShowUpFeeInvested"        "MoneyAdded"               "MoneyToPay"              
 [10] "MoneyEarned"              "total[1]"                 "total[2]"                
 [13] "total[3]"                 "total[4]"                 "total[5]"                
 [16] "total[6]"                 "total[7]"                 "total[8]"                
 [19] "total[9]"                 "total[10]"                "total[11]"               
 [22] "total[12]"                "total[13]"                "total[14]"               
 [25] "total[15]"                "total[16]"                "EndowmentDictator[1]"    
 [28] "EndowmentDictator[2]"     "EndowmentDictator[3]"     "EndowmentDictator[4]"    
 [31] "EndowmentDictator[5]"     "EndowmentDictator[6]"     "EndowmentDictator[7]"    
 [34] "EndowmentDictator[8]"     "EndowmentDictator[9]"     "EndowmentDictator[10]"   
 [37] "EndowmentDictator[11]"    "EndowmentDictator[12]"    "EndowmentDictator[13]"   
 [40] "EndowmentDictator[14]"    "EndowmentDictator[15]"    "EndowmentDictator[16]"   
 [43] "EndowmentRecipient[1]"    "EndowmentRecipient[2]"    "EndowmentRecipient[3]"   
 [46] "EndowmentRecipient[4]"    "EndowmentRecipient[5]"    "EndowmentRecipient[6]"   
 [49] "EndowmentRecipient[7]"    "EndowmentRecipient[8]"    "EndowmentRecipient[9]"   
 [52] "EndowmentRecipient[10]"   "EndowmentRecipient[11]"   "EndowmentRecipient[12]"  
 [55] "EndowmentRecipient[13]"   "EndowmentRecipient[14]"   "EndowmentRecipient[15]"  
 [58] "EndowmentRecipient[16]"   "RiskDictator[1]"          "RiskDictator[2]"         
 [61] "RiskDictator[3]"          "RiskDictator[4]"          "RiskDictator[5]"         
 [64] "RiskDictator[6]"          "RiskDictator[7]"          "RiskDictator[8]"         
 [67] "RiskDictator[9]"          "RiskDictator[10]"         "RiskDictator[11]"        
 [70] "RiskDictator[12]"         "RiskDictator[13]"         "RiskDictator[14]"        
 [73] "RiskDictator[15]"         "RiskDictator[16]"         "RiskRecipient[1]"        
 [76] "RiskRecipient[2]"         "RiskRecipient[3]"         "RiskRecipient[4]"        
 [79] "RiskRecipient[5]"         "RiskRecipient[6]"         "RiskRecipient[7]"        
 [82] "RiskRecipient[8]"         "RiskRecipient[9]"         "RiskRecipient[10]"       
 [85] "RiskRecipient[11]"        "RiskRecipient[12]"        "RiskRecipient[13]"       
 [88] "RiskRecipient[14]"        "RiskRecipient[15]"        "RiskRecipient[16]"       
 [91] "ReplacementDictator[1]"   "ReplacementDictator[2]"   "ReplacementDictator[3]"  
 [94] "ReplacementDictator[4]"   "ReplacementDictator[5]"   "ReplacementDictator[6]"  
 [97] "ReplacementDictator[7]"   "ReplacementDictator[8]"   "ReplacementDictator[9]"  
[100] "ReplacementDictator[10]"  "ReplacementDictator[11]"  "ReplacementDictator[12]" 
[103] "ReplacementDictator[13]"  "ReplacementDictator[14]"  "ReplacementDictator[15]" 
[106] "ReplacementDictator[16]"  "ReplacementRecipient[1]"  "ReplacementRecipient[2]" 
[109] "ReplacementRecipient[3]"  "ReplacementRecipient[4]"  "ReplacementRecipient[5]" 
[112] "ReplacementRecipient[6]"  "ReplacementRecipient[7]"  "ReplacementRecipient[8]" 
[115] "ReplacementRecipient[9]"  "ReplacementRecipient[10]" "ReplacementRecipient[11]"
[118] "ReplacementRecipient[12]" "ReplacementRecipient[13]" "ReplacementRecipient[14]"
[121] "ReplacementRecipient[15]" "ReplacementRecipient[16]" "give[1]"                 
[124] "give[2]"                  "give[3]"                  "give[4]"                 
[127] "give[5]"                  "give[6]"                  "give[7]"                 
[130] "give[8]"                  "give[9]"                  "give[10]"                
[133] "give[11]"                 "give[12]"                 "give[13]"                
[136] "give[14]"                 "give[15]"                 "give[16]"                
[139] "transfer[1]"              "transfer[2]"              "transfer[3]"             
[142] "transfer[4]"              "transfer[5]"              "transfer[6]"             
[145] "transfer[7]"              "transfer[8]"              "transfer[9]"             
[148] "transfer[10]"             "transfer[11]"             "transfer[12]"            
[151] "transfer[13]"             "transfer[14]"             "transfer[15]"            
[154] "transfer[16]"             "winDictator[1]"           "winDictator[2]"          
[157] "winDictator[3]"           "winDictator[4]"           "winDictator[5]"          
[160] "winDictator[6]"           "winDictator[7]"           "winDictator[8]"          
[163] "winDictator[9]"           "winDictator[10]"          "winDictator[11]"         
[166] "winDictator[12]"          "winDictator[13]"          "winDictator[14]"         
[169] "winDictator[15]"          "winDictator[16]"          "winRecipient[1]"         
[172] "winRecipient[2]"          "winRecipient[3]"          "winRecipient[4]"         
[175] "winRecipient[5]"          "winRecipient[6]"          "winRecipient[7]"         
[178] "winRecipient[8]"          "winRecipient[9]"          "winRecipient[10]"        
[181] "winRecipient[11]"         "winRecipient[12]"         "winRecipient[13]"        
[184] "winRecipient[14]"         "winRecipient[15]"         "winRecipient[16]"        
[187] "ProfitDictator[1]"        "ProfitDictator[2]"        "ProfitDictator[3]"       
[190] "ProfitDictator[4]"        "ProfitDictator[5]"        "ProfitDictator[6]"       
[193] "ProfitDictator[7]"        "ProfitDictator[8]"        "ProfitDictator[9]"       
[196] "ProfitDictator[10]"       "ProfitDictator[11]"       "ProfitDictator[12]"      
[199] "ProfitDictator[13]"       "ProfitDictator[14]"       "ProfitDictator[15]"      
[202] "ProfitDictator[16]"       "ProfitRecipient[1]"       "ProfitRecipient[2]"      
[205] "ProfitRecipient[3]"       "ProfitRecipient[4]"       "ProfitRecipient[5]"      
[208] "ProfitRecipient[6]"       "ProfitRecipient[7]"       "ProfitRecipient[8]"      
[211] "ProfitRecipient[9]"       "ProfitRecipient[10]"      "ProfitRecipient[11]"     
[214] "ProfitRecipient[12]"      "ProfitRecipient[13]"      "ProfitRecipient[14]"     
[217] "ProfitRecipient[15]"      "ProfitRecipient[16]"      "Round[1]"                
[220] "Round[2]"                 "Round[3]"                 "Round[4]"                
[223] "Round[5]"                 "Round[6]"                 "Round[7]"                
[226] "Round[8]"                 "Round[9]"                 "Round[10]"               
[229] "Round[11]"                "Round[12]"                "Round[13]"               
[232] "Round[14]"                "Round[15]"                "Round[16]"               
[235] "rdmRound[1]"              "rdmRound[2]"              "rdmRound[3]"             
[238] "rdmRound[4]"              "rdmRound[5]"              "rdmRound[6]"             
[241] "rdmRound[7]"              "rdmRound[8]"              "rdmRound[9]"             
[244] "rdmRound[10]"             "rdmRound[11]"             "rdmRound[12]"            
[247] "rdmRound[13]"             "rdmRound[14]"             "rdmRound[15]"            
[250] "rdmRound[16]"             "Role[1]"                  "Role[2]"                 
[253] "Role[3]"                  "Role[4]"                  "Role[5]"                 
[256] "Role[6]"                  "Role[7]"                  "Role[8]"                 
[259] "Role[9]"                  "Role[10]"                 "Role[11]"                
[262] "Role[12]"                 "Role[13]"                 "Role[14]"                
[265] "Role[15]"                 "Role[16]"                 "Group[1]"                
[268] "Group[2]"                 "Group[3]"                 "Group[4]"                
[271] "Group[5]"                 "Group[6]"                 "Group[7]"                
[274] "Group[8]"                 "Group[9]"                 "Group[10]"               
[277] "Group[11]"                "Group[12]"                "Group[13]"               
[280] "Group[14]"                "Group[15]"                "Group[16]"               
[283] "numClicks[1]"             "numClicks[2]"             "numClicks[3]"            
[286] "numClicks[4]"             "numClicks[5]"             "numClicks[6]"            
[289] "numClicks[7]"             "numClicks[8]"             "numClicks[9]"            
[292] "numClicks[10]"            "numClicks[11]"            "numClicks[12]"           
[295] "numClicks[13]"            "numClicks[14]"            "numClicks[15]"           
[298] "numClicks[16]"            "rdmNumRisk[1]"            "rdmNumRisk[2]"           
[301] "rdmNumRisk[3]"            "rdmNumRisk[4]"            "rdmNumRisk[5]"           
[304] "rdmNumRisk[6]"            "rdmNumRisk[7]"            "rdmNumRisk[8]"           
[307] "rdmNumRisk[9]"            "risk_decision[1]"         "risk_decision[2]"        
[310] "risk_decision[3]"         "risk_decision[4]"         "risk_decision[5]"        
[313] "risk_decision[6]"         "risk_decision[7]"         "risk_decision[8]"        
[316] "risk_decision[9]"         "risk_outcome[1]"          "risk_outcome[2]"         
[319] "risk_outcome[3]"          "risk_outcome[4]"          "risk_outcome[5]"         
[322] "risk_outcome[6]"          "risk_outcome[7]"          "risk_outcome[8]"         
[325] "risk_outcome[9]"          "Rate"                     "numRounds"               
[328] "i"                        "counter"                  "numRoundsRisk"           
[331] "p"                        "j"                        "k"                       
[334] "pay_dictator"             "pay_recipient"            "pay_risk"                
[337] "Date.y"                   "Subject.y"                "client"                  
[340] "age"                      "major"                    "gender"                  
[343] "religion"                 "rel_group"                "income_fam"              
[346] "polintr"                  "leftright"                "party"                   
[349] "stfgov"                   "gincdif"                  "equalopt"                
[352] "sucess"                   "instr"                    "change"                  
[355] "changes_reason"          

> s[,171]
  [1] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 1 0 1 1 1 1 1 1 1 1 1 0 0 1 1 1 1 1
 [46] 1 1 1 1 1 1 0 1 0 1 1 1 1 1 1 1 1 1 1 1 1 1 0 1 1 0 0 1 1 1 1 1 0 1 1 1 1 1 0 1 1 1 1 1 0
 [91] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 1 0 1 0 1 0 1 1 1 0 1 1 1 1 0 1 0 1 0 1 1 0 0 0 0 1 1 1
[136] 0 1 0 1 1 1 1 0 1 1 1 1 0 1 1 0 1 1 0 1 0 0 1 1 0 1 0 1 1 0 1 1 1 1 0 1 0 1 1

> for(i in 1:16) { 
+   nam <- paste("winRecipient", i, sep = "_")
+   assign(nam, s[,170+i]) ##start with -1
+ }

> s$`winRecipient[16]`
  [1] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 1 1 0
 [46] 0 1 1 1 0 1 1 1 1 1 1 0 1 1 0 1 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 0 1 1
 [91] 1 1 1 1 1 1 1 1 1 1 1 0 1 0 1 0 1 1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
[136] 1 1 1 1 1 1 1 0 0 1 1 1 1 1 1 0 1 1 1 0 1 1 1 1 0 1 0 1 0 0 0 1 1 1 0 1 1 1 1

> winRecipient_16
  [1] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 1 1 0
 [46] 0 1 1 1 0 1 1 1 1 1 1 0 1 1 0 1 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 0 1 1
 [91] 1 1 1 1 1 1 1 1 1 1 1 0 1 0 1 0 1 1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
[136] 1 1 1 1 1 1 1 0 0 1 1 1 1 1 1 0 1 1 1 0 1 1 1 1 0 1 0 1 0 0 0 1 1 1 0 1 1 1 1

> ##########################
> 
> 
> #Give
> names(s)
  [1] "ID"                       "Date.x"                   "Treatment"               
  [4] "Subject.x"                "FinalProfit"              "ShowUpFee"               
  [7] "ShowUpFeeInvested"        "MoneyAdded"               "MoneyToPay"              
 [10] "MoneyEarned"              "total[1]"                 "total[2]"                
 [13] "total[3]"                 "total[4]"                 "total[5]"                
 [16] "total[6]"                 "total[7]"                 "total[8]"                
 [19] "total[9]"                 "total[10]"                "total[11]"               
 [22] "total[12]"                "total[13]"                "total[14]"               
 [25] "total[15]"                "total[16]"                "EndowmentDictator[1]"    
 [28] "EndowmentDictator[2]"     "EndowmentDictator[3]"     "EndowmentDictator[4]"    
 [31] "EndowmentDictator[5]"     "EndowmentDictator[6]"     "EndowmentDictator[7]"    
 [34] "EndowmentDictator[8]"     "EndowmentDictator[9]"     "EndowmentDictator[10]"   
 [37] "EndowmentDictator[11]"    "EndowmentDictator[12]"    "EndowmentDictator[13]"   
 [40] "EndowmentDictator[14]"    "EndowmentDictator[15]"    "EndowmentDictator[16]"   
 [43] "EndowmentRecipient[1]"    "EndowmentRecipient[2]"    "EndowmentRecipient[3]"   
 [46] "EndowmentRecipient[4]"    "EndowmentRecipient[5]"    "EndowmentRecipient[6]"   
 [49] "EndowmentRecipient[7]"    "EndowmentRecipient[8]"    "EndowmentRecipient[9]"   
 [52] "EndowmentRecipient[10]"   "EndowmentRecipient[11]"   "EndowmentRecipient[12]"  
 [55] "EndowmentRecipient[13]"   "EndowmentRecipient[14]"   "EndowmentRecipient[15]"  
 [58] "EndowmentRecipient[16]"   "RiskDictator[1]"          "RiskDictator[2]"         
 [61] "RiskDictator[3]"          "RiskDictator[4]"          "RiskDictator[5]"         
 [64] "RiskDictator[6]"          "RiskDictator[7]"          "RiskDictator[8]"         
 [67] "RiskDictator[9]"          "RiskDictator[10]"         "RiskDictator[11]"        
 [70] "RiskDictator[12]"         "RiskDictator[13]"         "RiskDictator[14]"        
 [73] "RiskDictator[15]"         "RiskDictator[16]"         "RiskRecipient[1]"        
 [76] "RiskRecipient[2]"         "RiskRecipient[3]"         "RiskRecipient[4]"        
 [79] "RiskRecipient[5]"         "RiskRecipient[6]"         "RiskRecipient[7]"        
 [82] "RiskRecipient[8]"         "RiskRecipient[9]"         "RiskRecipient[10]"       
 [85] "RiskRecipient[11]"        "RiskRecipient[12]"        "RiskRecipient[13]"       
 [88] "RiskRecipient[14]"        "RiskRecipient[15]"        "RiskRecipient[16]"       
 [91] "ReplacementDictator[1]"   "ReplacementDictator[2]"   "ReplacementDictator[3]"  
 [94] "ReplacementDictator[4]"   "ReplacementDictator[5]"   "ReplacementDictator[6]"  
 [97] "ReplacementDictator[7]"   "ReplacementDictator[8]"   "ReplacementDictator[9]"  
[100] "ReplacementDictator[10]"  "ReplacementDictator[11]"  "ReplacementDictator[12]" 
[103] "ReplacementDictator[13]"  "ReplacementDictator[14]"  "ReplacementDictator[15]" 
[106] "ReplacementDictator[16]"  "ReplacementRecipient[1]"  "ReplacementRecipient[2]" 
[109] "ReplacementRecipient[3]"  "ReplacementRecipient[4]"  "ReplacementRecipient[5]" 
[112] "ReplacementRecipient[6]"  "ReplacementRecipient[7]"  "ReplacementRecipient[8]" 
[115] "ReplacementRecipient[9]"  "ReplacementRecipient[10]" "ReplacementRecipient[11]"
[118] "ReplacementRecipient[12]" "ReplacementRecipient[13]" "ReplacementRecipient[14]"
[121] "ReplacementRecipient[15]" "ReplacementRecipient[16]" "give[1]"                 
[124] "give[2]"                  "give[3]"                  "give[4]"                 
[127] "give[5]"                  "give[6]"                  "give[7]"                 
[130] "give[8]"                  "give[9]"                  "give[10]"                
[133] "give[11]"                 "give[12]"                 "give[13]"                
[136] "give[14]"                 "give[15]"                 "give[16]"                
[139] "transfer[1]"              "transfer[2]"              "transfer[3]"             
[142] "transfer[4]"              "transfer[5]"              "transfer[6]"             
[145] "transfer[7]"              "transfer[8]"              "transfer[9]"             
[148] "transfer[10]"             "transfer[11]"             "transfer[12]"            
[151] "transfer[13]"             "transfer[14]"             "transfer[15]"            
[154] "transfer[16]"             "winDictator[1]"           "winDictator[2]"          
[157] "winDictator[3]"           "winDictator[4]"           "winDictator[5]"          
[160] "winDictator[6]"           "winDictator[7]"           "winDictator[8]"          
[163] "winDictator[9]"           "winDictator[10]"          "winDictator[11]"         
[166] "winDictator[12]"          "winDictator[13]"          "winDictator[14]"         
[169] "winDictator[15]"          "winDictator[16]"          "winRecipient[1]"         
[172] "winRecipient[2]"          "winRecipient[3]"          "winRecipient[4]"         
[175] "winRecipient[5]"          "winRecipient[6]"          "winRecipient[7]"         
[178] "winRecipient[8]"          "winRecipient[9]"          "winRecipient[10]"        
[181] "winRecipient[11]"         "winRecipient[12]"         "winRecipient[13]"        
[184] "winRecipient[14]"         "winRecipient[15]"         "winRecipient[16]"        
[187] "ProfitDictator[1]"        "ProfitDictator[2]"        "ProfitDictator[3]"       
[190] "ProfitDictator[4]"        "ProfitDictator[5]"        "ProfitDictator[6]"       
[193] "ProfitDictator[7]"        "ProfitDictator[8]"        "ProfitDictator[9]"       
[196] "ProfitDictator[10]"       "ProfitDictator[11]"       "ProfitDictator[12]"      
[199] "ProfitDictator[13]"       "ProfitDictator[14]"       "ProfitDictator[15]"      
[202] "ProfitDictator[16]"       "ProfitRecipient[1]"       "ProfitRecipient[2]"      
[205] "ProfitRecipient[3]"       "ProfitRecipient[4]"       "ProfitRecipient[5]"      
[208] "ProfitRecipient[6]"       "ProfitRecipient[7]"       "ProfitRecipient[8]"      
[211] "ProfitRecipient[9]"       "ProfitRecipient[10]"      "ProfitRecipient[11]"     
[214] "ProfitRecipient[12]"      "ProfitRecipient[13]"      "ProfitRecipient[14]"     
[217] "ProfitRecipient[15]"      "ProfitRecipient[16]"      "Round[1]"                
[220] "Round[2]"                 "Round[3]"                 "Round[4]"                
[223] "Round[5]"                 "Round[6]"                 "Round[7]"                
[226] "Round[8]"                 "Round[9]"                 "Round[10]"               
[229] "Round[11]"                "Round[12]"                "Round[13]"               
[232] "Round[14]"                "Round[15]"                "Round[16]"               
[235] "rdmRound[1]"              "rdmRound[2]"              "rdmRound[3]"             
[238] "rdmRound[4]"              "rdmRound[5]"              "rdmRound[6]"             
[241] "rdmRound[7]"              "rdmRound[8]"              "rdmRound[9]"             
[244] "rdmRound[10]"             "rdmRound[11]"             "rdmRound[12]"            
[247] "rdmRound[13]"             "rdmRound[14]"             "rdmRound[15]"            
[250] "rdmRound[16]"             "Role[1]"                  "Role[2]"                 
[253] "Role[3]"                  "Role[4]"                  "Role[5]"                 
[256] "Role[6]"                  "Role[7]"                  "Role[8]"                 
[259] "Role[9]"                  "Role[10]"                 "Role[11]"                
[262] "Role[12]"                 "Role[13]"                 "Role[14]"                
[265] "Role[15]"                 "Role[16]"                 "Group[1]"                
[268] "Group[2]"                 "Group[3]"                 "Group[4]"                
[271] "Group[5]"                 "Group[6]"                 "Group[7]"                
[274] "Group[8]"                 "Group[9]"                 "Group[10]"               
[277] "Group[11]"                "Group[12]"                "Group[13]"               
[280] "Group[14]"                "Group[15]"                "Group[16]"               
[283] "numClicks[1]"             "numClicks[2]"             "numClicks[3]"            
[286] "numClicks[4]"             "numClicks[5]"             "numClicks[6]"            
[289] "numClicks[7]"             "numClicks[8]"             "numClicks[9]"            
[292] "numClicks[10]"            "numClicks[11]"            "numClicks[12]"           
[295] "numClicks[13]"            "numClicks[14]"            "numClicks[15]"           
[298] "numClicks[16]"            "rdmNumRisk[1]"            "rdmNumRisk[2]"           
[301] "rdmNumRisk[3]"            "rdmNumRisk[4]"            "rdmNumRisk[5]"           
[304] "rdmNumRisk[6]"            "rdmNumRisk[7]"            "rdmNumRisk[8]"           
[307] "rdmNumRisk[9]"            "risk_decision[1]"         "risk_decision[2]"        
[310] "risk_decision[3]"         "risk_decision[4]"         "risk_decision[5]"        
[313] "risk_decision[6]"         "risk_decision[7]"         "risk_decision[8]"        
[316] "risk_decision[9]"         "risk_outcome[1]"          "risk_outcome[2]"         
[319] "risk_outcome[3]"          "risk_outcome[4]"          "risk_outcome[5]"         
[322] "risk_outcome[6]"          "risk_outcome[7]"          "risk_outcome[8]"         
[325] "risk_outcome[9]"          "Rate"                     "numRounds"               
[328] "i"                        "counter"                  "numRoundsRisk"           
[331] "p"                        "j"                        "k"                       
[334] "pay_dictator"             "pay_recipient"            "pay_risk"                
[337] "Date.y"                   "Subject.y"                "client"                  
[340] "age"                      "major"                    "gender"                  
[343] "religion"                 "rel_group"                "income_fam"              
[346] "polintr"                  "leftright"                "party"                   
[349] "stfgov"                   "gincdif"                  "equalopt"                
[352] "sucess"                   "instr"                    "change"                  
[355] "changes_reason"          

> s[,171]
  [1] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 1 0 1 1 1 1 1 1 1 1 1 0 0 1 1 1 1 1
 [46] 1 1 1 1 1 1 0 1 0 1 1 1 1 1 1 1 1 1 1 1 1 1 0 1 1 0 0 1 1 1 1 1 0 1 1 1 1 1 0 1 1 1 1 1 0
 [91] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 1 0 1 0 1 0 1 1 1 0 1 1 1 1 0 1 0 1 0 1 1 0 0 0 0 1 1 1
[136] 0 1 0 1 1 1 1 0 1 1 1 1 0 1 1 0 1 1 0 1 0 0 1 1 0 1 0 1 1 0 1 1 1 1 0 1 0 1 1

> for(i in 1:16) { 
+   nam <- paste("give", i, sep = "_")
+   assign(nam, s[,122+i]) ##start with -1
+ }

> s$`give[16]`
  [1]  0.000000e+00  0.000000e+00  2.391441e+01  0.000000e+00  0.000000e+00  2.139711e+01
  [7]  0.000000e+00  1.573317e+00  1.321586e+01  8.370044e+01  3.115167e+01  4.185022e+01
 [13]  4.279421e+01  9.974827e+01  2.989301e+01  9.754563e+01  7.079924e+01  3.335431e+01
 [19]  3.461296e+01  1.353052e+01  0.000000e+00  0.000000e+00  2.957835e+01  0.000000e+00
 [25]  2.202643e+00  5.349276e+00  1.038389e+01  1.510384e+01  5.349276e+00  0.000000e+00
 [31]  3.587162e+01  4.247955e+01  8.590308e+01  4.153556e+01  4.562618e+01  4.059157e+01
 [37]  4.059157e+01  6.828194e+01  4.971680e+01  4.059157e+01  4.153556e+01  2.863436e+01
 [43]  0.000000e+00  1.258653e+00 -4.060244e-14  4.090623e+00  0.000000e+00  3.775960e+01
 [49]  5.034613e+00  0.000000e+00  2.706104e+01  2.548773e+01  9.974827e+01  3.272498e+01
 [55]  2.863436e+01  3.964758e+01  7.551919e+01  4.342354e+01  4.185022e+01  3.020768e+01
 [61]  4.153556e+01  4.027690e+01  3.901825e+01  0.000000e+00  1.321586e+01  1.258653e+00
 [67]  7.237256e+00  5.663940e+00  5.663940e+00  3.587162e+01  9.754563e+00  9.282568e+01
 [73]  3.272498e+01  3.461296e+01  9.974827e+01  9.974827e+01  5.947137e+01  1.510384e+01
 [79]  7.551919e+00  3.461296e+00  0.000000e+00  1.038389e+01  3.524229e+01  1.887980e+00
 [85]  1.227187e+01  9.974827e+01  4.247955e+01  4.216488e+01  4.342354e+01  9.156702e+01
 [91]  2.202643e+01  9.754563e+00  7.898049e+01  3.775960e+00  0.000000e+00  3.524229e+01
 [97]  0.000000e+00  9.974827e+01  5.663940e+01  2.989301e+01  1.321586e+01  4.090623e+01
[103]  4.657017e+01  7.237256e+00  0.000000e+00  1.950913e+01  0.000000e+00  0.000000e+00
[109]  9.439899e-01  0.000000e+00  3.335431e+01  4.153556e+01  6.576463e+01  3.429830e+01
[115]  9.974827e+01  4.185022e+01  3.775960e+01  0.000000e+00 -1.421085e-13  6.644518e-01
[121]  4.219269e+01  1.661130e+00 -2.030122e-14 -3.322259e-01  4.418605e+01  4.385382e+01
[127]  1.000000e+02  4.518272e+01  4.518272e+01  1.993355e+00  1.000000e+02  4.518272e+01
[133]  3.023256e+01  4.418605e+01  4.119601e+01  0.000000e+00  4.186047e+01  1.395349e+01
[139]  2.990033e+00  1.893688e+01  0.000000e+00  1.760797e+01  2.823920e+01  0.000000e+00
[145]  0.000000e+00  1.000000e+02  4.950166e+01  9.966777e+01  3.754153e+01  1.000000e+02
[151]  3.953488e+01  4.119601e+01  1.993355e+01  4.352159e+01  3.554817e+01  0.000000e+00
[157]  0.000000e+00  0.000000e+00  0.000000e+00  0.000000e+00  1.029900e+01  1.029900e+01
[163]  4.252492e+01  3.953488e+01  4.186047e+01  4.485050e+01  4.485050e+01  3.455150e+01
[169]  5.249169e+01  6.079734e+01  4.684385e+01  4.152824e+01  3.853821e+01  4.252492e+01

> give_16
  [1]  0.000000e+00  0.000000e+00  2.391441e+01  0.000000e+00  0.000000e+00  2.139711e+01
  [7]  0.000000e+00  1.573317e+00  1.321586e+01  8.370044e+01  3.115167e+01  4.185022e+01
 [13]  4.279421e+01  9.974827e+01  2.989301e+01  9.754563e+01  7.079924e+01  3.335431e+01
 [19]  3.461296e+01  1.353052e+01  0.000000e+00  0.000000e+00  2.957835e+01  0.000000e+00
 [25]  2.202643e+00  5.349276e+00  1.038389e+01  1.510384e+01  5.349276e+00  0.000000e+00
 [31]  3.587162e+01  4.247955e+01  8.590308e+01  4.153556e+01  4.562618e+01  4.059157e+01
 [37]  4.059157e+01  6.828194e+01  4.971680e+01  4.059157e+01  4.153556e+01  2.863436e+01
 [43]  0.000000e+00  1.258653e+00 -4.060244e-14  4.090623e+00  0.000000e+00  3.775960e+01
 [49]  5.034613e+00  0.000000e+00  2.706104e+01  2.548773e+01  9.974827e+01  3.272498e+01
 [55]  2.863436e+01  3.964758e+01  7.551919e+01  4.342354e+01  4.185022e+01  3.020768e+01
 [61]  4.153556e+01  4.027690e+01  3.901825e+01  0.000000e+00  1.321586e+01  1.258653e+00
 [67]  7.237256e+00  5.663940e+00  5.663940e+00  3.587162e+01  9.754563e+00  9.282568e+01
 [73]  3.272498e+01  3.461296e+01  9.974827e+01  9.974827e+01  5.947137e+01  1.510384e+01
 [79]  7.551919e+00  3.461296e+00  0.000000e+00  1.038389e+01  3.524229e+01  1.887980e+00
 [85]  1.227187e+01  9.974827e+01  4.247955e+01  4.216488e+01  4.342354e+01  9.156702e+01
 [91]  2.202643e+01  9.754563e+00  7.898049e+01  3.775960e+00  0.000000e+00  3.524229e+01
 [97]  0.000000e+00  9.974827e+01  5.663940e+01  2.989301e+01  1.321586e+01  4.090623e+01
[103]  4.657017e+01  7.237256e+00  0.000000e+00  1.950913e+01  0.000000e+00  0.000000e+00
[109]  9.439899e-01  0.000000e+00  3.335431e+01  4.153556e+01  6.576463e+01  3.429830e+01
[115]  9.974827e+01  4.185022e+01  3.775960e+01  0.000000e+00 -1.421085e-13  6.644518e-01
[121]  4.219269e+01  1.661130e+00 -2.030122e-14 -3.322259e-01  4.418605e+01  4.385382e+01
[127]  1.000000e+02  4.518272e+01  4.518272e+01  1.993355e+00  1.000000e+02  4.518272e+01
[133]  3.023256e+01  4.418605e+01  4.119601e+01  0.000000e+00  4.186047e+01  1.395349e+01
[139]  2.990033e+00  1.893688e+01  0.000000e+00  1.760797e+01  2.823920e+01  0.000000e+00
[145]  0.000000e+00  1.000000e+02  4.950166e+01  9.966777e+01  3.754153e+01  1.000000e+02
[151]  3.953488e+01  4.119601e+01  1.993355e+01  4.352159e+01  3.554817e+01  0.000000e+00
[157]  0.000000e+00  0.000000e+00  0.000000e+00  0.000000e+00  1.029900e+01  1.029900e+01
[163]  4.252492e+01  3.953488e+01  4.186047e+01  4.485050e+01  4.485050e+01  3.455150e+01
[169]  5.249169e+01  6.079734e+01  4.684385e+01  4.152824e+01  3.853821e+01  4.252492e+01

> ##########################
> 
> 
> #Transfer decision
> names(s)
  [1] "ID"                       "Date.x"                   "Treatment"               
  [4] "Subject.x"                "FinalProfit"              "ShowUpFee"               
  [7] "ShowUpFeeInvested"        "MoneyAdded"               "MoneyToPay"              
 [10] "MoneyEarned"              "total[1]"                 "total[2]"                
 [13] "total[3]"                 "total[4]"                 "total[5]"                
 [16] "total[6]"                 "total[7]"                 "total[8]"                
 [19] "total[9]"                 "total[10]"                "total[11]"               
 [22] "total[12]"                "total[13]"                "total[14]"               
 [25] "total[15]"                "total[16]"                "EndowmentDictator[1]"    
 [28] "EndowmentDictator[2]"     "EndowmentDictator[3]"     "EndowmentDictator[4]"    
 [31] "EndowmentDictator[5]"     "EndowmentDictator[6]"     "EndowmentDictator[7]"    
 [34] "EndowmentDictator[8]"     "EndowmentDictator[9]"     "EndowmentDictator[10]"   
 [37] "EndowmentDictator[11]"    "EndowmentDictator[12]"    "EndowmentDictator[13]"   
 [40] "EndowmentDictator[14]"    "EndowmentDictator[15]"    "EndowmentDictator[16]"   
 [43] "EndowmentRecipient[1]"    "EndowmentRecipient[2]"    "EndowmentRecipient[3]"   
 [46] "EndowmentRecipient[4]"    "EndowmentRecipient[5]"    "EndowmentRecipient[6]"   
 [49] "EndowmentRecipient[7]"    "EndowmentRecipient[8]"    "EndowmentRecipient[9]"   
 [52] "EndowmentRecipient[10]"   "EndowmentRecipient[11]"   "EndowmentRecipient[12]"  
 [55] "EndowmentRecipient[13]"   "EndowmentRecipient[14]"   "EndowmentRecipient[15]"  
 [58] "EndowmentRecipient[16]"   "RiskDictator[1]"          "RiskDictator[2]"         
 [61] "RiskDictator[3]"          "RiskDictator[4]"          "RiskDictator[5]"         
 [64] "RiskDictator[6]"          "RiskDictator[7]"          "RiskDictator[8]"         
 [67] "RiskDictator[9]"          "RiskDictator[10]"         "RiskDictator[11]"        
 [70] "RiskDictator[12]"         "RiskDictator[13]"         "RiskDictator[14]"        
 [73] "RiskDictator[15]"         "RiskDictator[16]"         "RiskRecipient[1]"        
 [76] "RiskRecipient[2]"         "RiskRecipient[3]"         "RiskRecipient[4]"        
 [79] "RiskRecipient[5]"         "RiskRecipient[6]"         "RiskRecipient[7]"        
 [82] "RiskRecipient[8]"         "RiskRecipient[9]"         "RiskRecipient[10]"       
 [85] "RiskRecipient[11]"        "RiskRecipient[12]"        "RiskRecipient[13]"       
 [88] "RiskRecipient[14]"        "RiskRecipient[15]"        "RiskRecipient[16]"       
 [91] "ReplacementDictator[1]"   "ReplacementDictator[2]"   "ReplacementDictator[3]"  
 [94] "ReplacementDictator[4]"   "ReplacementDictator[5]"   "ReplacementDictator[6]"  
 [97] "ReplacementDictator[7]"   "ReplacementDictator[8]"   "ReplacementDictator[9]"  
[100] "ReplacementDictator[10]"  "ReplacementDictator[11]"  "ReplacementDictator[12]" 
[103] "ReplacementDictator[13]"  "ReplacementDictator[14]"  "ReplacementDictator[15]" 
[106] "ReplacementDictator[16]"  "ReplacementRecipient[1]"  "ReplacementRecipient[2]" 
[109] "ReplacementRecipient[3]"  "ReplacementRecipient[4]"  "ReplacementRecipient[5]" 
[112] "ReplacementRecipient[6]"  "ReplacementRecipient[7]"  "ReplacementRecipient[8]" 
[115] "ReplacementRecipient[9]"  "ReplacementRecipient[10]" "ReplacementRecipient[11]"
[118] "ReplacementRecipient[12]" "ReplacementRecipient[13]" "ReplacementRecipient[14]"
[121] "ReplacementRecipient[15]" "ReplacementRecipient[16]" "give[1]"                 
[124] "give[2]"                  "give[3]"                  "give[4]"                 
[127] "give[5]"                  "give[6]"                  "give[7]"                 
[130] "give[8]"                  "give[9]"                  "give[10]"                
[133] "give[11]"                 "give[12]"                 "give[13]"                
[136] "give[14]"                 "give[15]"                 "give[16]"                
[139] "transfer[1]"              "transfer[2]"              "transfer[3]"             
[142] "transfer[4]"              "transfer[5]"              "transfer[6]"             
[145] "transfer[7]"              "transfer[8]"              "transfer[9]"             
[148] "transfer[10]"             "transfer[11]"             "transfer[12]"            
[151] "transfer[13]"             "transfer[14]"             "transfer[15]"            
[154] "transfer[16]"             "winDictator[1]"           "winDictator[2]"          
[157] "winDictator[3]"           "winDictator[4]"           "winDictator[5]"          
[160] "winDictator[6]"           "winDictator[7]"           "winDictator[8]"          
[163] "winDictator[9]"           "winDictator[10]"          "winDictator[11]"         
[166] "winDictator[12]"          "winDictator[13]"          "winDictator[14]"         
[169] "winDictator[15]"          "winDictator[16]"          "winRecipient[1]"         
[172] "winRecipient[2]"          "winRecipient[3]"          "winRecipient[4]"         
[175] "winRecipient[5]"          "winRecipient[6]"          "winRecipient[7]"         
[178] "winRecipient[8]"          "winRecipient[9]"          "winRecipient[10]"        
[181] "winRecipient[11]"         "winRecipient[12]"         "winRecipient[13]"        
[184] "winRecipient[14]"         "winRecipient[15]"         "winRecipient[16]"        
[187] "ProfitDictator[1]"        "ProfitDictator[2]"        "ProfitDictator[3]"       
[190] "ProfitDictator[4]"        "ProfitDictator[5]"        "ProfitDictator[6]"       
[193] "ProfitDictator[7]"        "ProfitDictator[8]"        "ProfitDictator[9]"       
[196] "ProfitDictator[10]"       "ProfitDictator[11]"       "ProfitDictator[12]"      
[199] "ProfitDictator[13]"       "ProfitDictator[14]"       "ProfitDictator[15]"      
[202] "ProfitDictator[16]"       "ProfitRecipient[1]"       "ProfitRecipient[2]"      
[205] "ProfitRecipient[3]"       "ProfitRecipient[4]"       "ProfitRecipient[5]"      
[208] "ProfitRecipient[6]"       "ProfitRecipient[7]"       "ProfitRecipient[8]"      
[211] "ProfitRecipient[9]"       "ProfitRecipient[10]"      "ProfitRecipient[11]"     
[214] "ProfitRecipient[12]"      "ProfitRecipient[13]"      "ProfitRecipient[14]"     
[217] "ProfitRecipient[15]"      "ProfitRecipient[16]"      "Round[1]"                
[220] "Round[2]"                 "Round[3]"                 "Round[4]"                
[223] "Round[5]"                 "Round[6]"                 "Round[7]"                
[226] "Round[8]"                 "Round[9]"                 "Round[10]"               
[229] "Round[11]"                "Round[12]"                "Round[13]"               
[232] "Round[14]"                "Round[15]"                "Round[16]"               
[235] "rdmRound[1]"              "rdmRound[2]"              "rdmRound[3]"             
[238] "rdmRound[4]"              "rdmRound[5]"              "rdmRound[6]"             
[241] "rdmRound[7]"              "rdmRound[8]"              "rdmRound[9]"             
[244] "rdmRound[10]"             "rdmRound[11]"             "rdmRound[12]"            
[247] "rdmRound[13]"             "rdmRound[14]"             "rdmRound[15]"            
[250] "rdmRound[16]"             "Role[1]"                  "Role[2]"                 
[253] "Role[3]"                  "Role[4]"                  "Role[5]"                 
[256] "Role[6]"                  "Role[7]"                  "Role[8]"                 
[259] "Role[9]"                  "Role[10]"                 "Role[11]"                
[262] "Role[12]"                 "Role[13]"                 "Role[14]"                
[265] "Role[15]"                 "Role[16]"                 "Group[1]"                
[268] "Group[2]"                 "Group[3]"                 "Group[4]"                
[271] "Group[5]"                 "Group[6]"                 "Group[7]"                
[274] "Group[8]"                 "Group[9]"                 "Group[10]"               
[277] "Group[11]"                "Group[12]"                "Group[13]"               
[280] "Group[14]"                "Group[15]"                "Group[16]"               
[283] "numClicks[1]"             "numClicks[2]"             "numClicks[3]"            
[286] "numClicks[4]"             "numClicks[5]"             "numClicks[6]"            
[289] "numClicks[7]"             "numClicks[8]"             "numClicks[9]"            
[292] "numClicks[10]"            "numClicks[11]"            "numClicks[12]"           
[295] "numClicks[13]"            "numClicks[14]"            "numClicks[15]"           
[298] "numClicks[16]"            "rdmNumRisk[1]"            "rdmNumRisk[2]"           
[301] "rdmNumRisk[3]"            "rdmNumRisk[4]"            "rdmNumRisk[5]"           
[304] "rdmNumRisk[6]"            "rdmNumRisk[7]"            "rdmNumRisk[8]"           
[307] "rdmNumRisk[9]"            "risk_decision[1]"         "risk_decision[2]"        
[310] "risk_decision[3]"         "risk_decision[4]"         "risk_decision[5]"        
[313] "risk_decision[6]"         "risk_decision[7]"         "risk_decision[8]"        
[316] "risk_decision[9]"         "risk_outcome[1]"          "risk_outcome[2]"         
[319] "risk_outcome[3]"          "risk_outcome[4]"          "risk_outcome[5]"         
[322] "risk_outcome[6]"          "risk_outcome[7]"          "risk_outcome[8]"         
[325] "risk_outcome[9]"          "Rate"                     "numRounds"               
[328] "i"                        "counter"                  "numRoundsRisk"           
[331] "p"                        "j"                        "k"                       
[334] "pay_dictator"             "pay_recipient"            "pay_risk"                
[337] "Date.y"                   "Subject.y"                "client"                  
[340] "age"                      "major"                    "gender"                  
[343] "religion"                 "rel_group"                "income_fam"              
[346] "polintr"                  "leftright"                "party"                   
[349] "stfgov"                   "gincdif"                  "equalopt"                
[352] "sucess"                   "instr"                    "change"                  
[355] "changes_reason"          

> s[,139]
  [1]  1.019509e+02  0.000000e+00  1.988043e+03  0.000000e+00  3.262429e+03  5.352423e+02
  [7]  0.000000e+00  1.835116e+03  9.685337e+02  5.607300e+02  1.019509e+02  9.685337e+02
 [13]  0.000000e+00  1.835116e+03  5.352423e+02  0.000000e+00  3.262429e+03  0.000000e+00
 [19]  1.988043e+03  5.607300e+02  0.000000e+00  0.000000e+00 -3.823159e+01  0.000000e+00
 [25]  1.529264e+02  1.529264e+02  7.646318e+01  6.499371e+02  1.261643e+03  3.937854e+03
 [31]  0.000000e+00  1.529264e+02  3.937854e+03  6.499371e+02  0.000000e+00  1.529264e+02
 [37]  0.000000e+00 -3.823159e+01  1.261643e+03  7.646318e+01  4.129012e+03  4.129012e+03
 [43] -2.548773e+01  3.823159e+02  0.000000e+00  1.274386e+02  0.000000e+00  5.352423e+02
 [49]  8.156073e+02  1.274386e+02  1.784141e+03  1.605727e+03  0.000000e+00  1.605727e+03
 [55]  1.274386e+02  5.352423e+02  1.274386e+02  3.823159e+02 -2.548773e+01 -2.548773e+01
 [61]  0.000000e+00  8.156073e+02  1.784141e+03 -2.548773e+01  5.734739e+02  1.223411e+03
 [67]  1.835116e+03  3.402612e+03  8.793266e+02  3.746696e+03  3.058527e+03  3.402612e+03
 [73]  3.746696e+03  1.223411e+03  5.734739e+02  8.793266e+02  1.835116e+03  3.058527e+03
 [79]  2.026274e+03  2.982064e+03 -4.933197e-12  8.410950e+02  2.408590e+03  4.205475e+02
 [85]  0.000000e+00  2.982064e+03  2.026274e+03  8.410950e+02  2.408590e+03  4.205475e+02
 [91] -4.933197e-12  0.000000e+00  2.089994e+03  5.097546e+01  1.044997e+03  7.901196e+02
 [97]  0.000000e+00  5.097546e+01  0.000000e+00  7.901196e+02  1.095972e+03  1.044997e+03
[103]  2.089994e+03  1.095972e+03  0.000000e+00  0.000000e+00  0.000000e+00  0.000000e+00
[109]  1.019509e+02  0.000000e+00  0.000000e+00  0.000000e+00  1.019509e+02  0.000000e+00
[115] -2.548773e+01  0.000000e+00  0.000000e+00 -2.548773e+01 -3.288798e-12  4.843854e+02
[121]  1.130233e+03  8.073090e+01  0.000000e+00 -2.691030e+01  1.291694e+03  1.130233e+03
[127]  1.130233e+03 -3.288798e-12  3.229236e+02  8.073090e+01 -2.691030e+01  1.130233e+03
[133]  0.000000e+00  4.843854e+02  1.291694e+03  3.229236e+02  1.856811e+03  6.189369e+02
[139]  2.152824e+02  1.157143e+03  0.000000e+00  4.843854e+02  2.987043e+03  0.000000e+00
[145] -2.691030e+01  4.843854e+02  1.856811e+03  0.000000e+00  1.157143e+03  2.152824e+02
[151]  2.987043e+03 -2.691030e+01  0.000000e+00  6.189369e+02  0.000000e+00  0.000000e+00
[157]  0.000000e+00 -1.345515e+01  0.000000e+00  0.000000e+00  4.171096e+02  6.054817e+02
[163]  1.506977e+03  1.466611e+03  0.000000e+00  1.466611e+03  2.018272e+02  1.506977e+03
[169]  0.000000e+00  6.054817e+02  4.171096e+02  0.000000e+00 -1.345515e+01  2.018272e+02

> for(i in 1:16) { 
+   nam <- paste("transfer", i, sep = "_")
+   assign(nam, s[,138+i]) ##start with -1
+ }

> #Test
> s$`transfer[1]`
  [1]  1.019509e+02  0.000000e+00  1.988043e+03  0.000000e+00  3.262429e+03  5.352423e+02
  [7]  0.000000e+00  1.835116e+03  9.685337e+02  5.607300e+02  1.019509e+02  9.685337e+02
 [13]  0.000000e+00  1.835116e+03  5.352423e+02  0.000000e+00  3.262429e+03  0.000000e+00
 [19]  1.988043e+03  5.607300e+02  0.000000e+00  0.000000e+00 -3.823159e+01  0.000000e+00
 [25]  1.529264e+02  1.529264e+02  7.646318e+01  6.499371e+02  1.261643e+03  3.937854e+03
 [31]  0.000000e+00  1.529264e+02  3.937854e+03  6.499371e+02  0.000000e+00  1.529264e+02
 [37]  0.000000e+00 -3.823159e+01  1.261643e+03  7.646318e+01  4.129012e+03  4.129012e+03
 [43] -2.548773e+01  3.823159e+02  0.000000e+00  1.274386e+02  0.000000e+00  5.352423e+02
 [49]  8.156073e+02  1.274386e+02  1.784141e+03  1.605727e+03  0.000000e+00  1.605727e+03
 [55]  1.274386e+02  5.352423e+02  1.274386e+02  3.823159e+02 -2.548773e+01 -2.548773e+01
 [61]  0.000000e+00  8.156073e+02  1.784141e+03 -2.548773e+01  5.734739e+02  1.223411e+03
 [67]  1.835116e+03  3.402612e+03  8.793266e+02  3.746696e+03  3.058527e+03  3.402612e+03
 [73]  3.746696e+03  1.223411e+03  5.734739e+02  8.793266e+02  1.835116e+03  3.058527e+03
 [79]  2.026274e+03  2.982064e+03 -4.933197e-12  8.410950e+02  2.408590e+03  4.205475e+02
 [85]  0.000000e+00  2.982064e+03  2.026274e+03  8.410950e+02  2.408590e+03  4.205475e+02
 [91] -4.933197e-12  0.000000e+00  2.089994e+03  5.097546e+01  1.044997e+03  7.901196e+02
 [97]  0.000000e+00  5.097546e+01  0.000000e+00  7.901196e+02  1.095972e+03  1.044997e+03
[103]  2.089994e+03  1.095972e+03  0.000000e+00  0.000000e+00  0.000000e+00  0.000000e+00
[109]  1.019509e+02  0.000000e+00  0.000000e+00  0.000000e+00  1.019509e+02  0.000000e+00
[115] -2.548773e+01  0.000000e+00  0.000000e+00 -2.548773e+01 -3.288798e-12  4.843854e+02
[121]  1.130233e+03  8.073090e+01  0.000000e+00 -2.691030e+01  1.291694e+03  1.130233e+03
[127]  1.130233e+03 -3.288798e-12  3.229236e+02  8.073090e+01 -2.691030e+01  1.130233e+03
[133]  0.000000e+00  4.843854e+02  1.291694e+03  3.229236e+02  1.856811e+03  6.189369e+02
[139]  2.152824e+02  1.157143e+03  0.000000e+00  4.843854e+02  2.987043e+03  0.000000e+00
[145] -2.691030e+01  4.843854e+02  1.856811e+03  0.000000e+00  1.157143e+03  2.152824e+02
[151]  2.987043e+03 -2.691030e+01  0.000000e+00  6.189369e+02  0.000000e+00  0.000000e+00
[157]  0.000000e+00 -1.345515e+01  0.000000e+00  0.000000e+00  4.171096e+02  6.054817e+02
[163]  1.506977e+03  1.466611e+03  0.000000e+00  1.466611e+03  2.018272e+02  1.506977e+03
[169]  0.000000e+00  6.054817e+02  4.171096e+02  0.000000e+00 -1.345515e+01  2.018272e+02

> transfer_1
  [1]  1.019509e+02  0.000000e+00  1.988043e+03  0.000000e+00  3.262429e+03  5.352423e+02
  [7]  0.000000e+00  1.835116e+03  9.685337e+02  5.607300e+02  1.019509e+02  9.685337e+02
 [13]  0.000000e+00  1.835116e+03  5.352423e+02  0.000000e+00  3.262429e+03  0.000000e+00
 [19]  1.988043e+03  5.607300e+02  0.000000e+00  0.000000e+00 -3.823159e+01  0.000000e+00
 [25]  1.529264e+02  1.529264e+02  7.646318e+01  6.499371e+02  1.261643e+03  3.937854e+03
 [31]  0.000000e+00  1.529264e+02  3.937854e+03  6.499371e+02  0.000000e+00  1.529264e+02
 [37]  0.000000e+00 -3.823159e+01  1.261643e+03  7.646318e+01  4.129012e+03  4.129012e+03
 [43] -2.548773e+01  3.823159e+02  0.000000e+00  1.274386e+02  0.000000e+00  5.352423e+02
 [49]  8.156073e+02  1.274386e+02  1.784141e+03  1.605727e+03  0.000000e+00  1.605727e+03
 [55]  1.274386e+02  5.352423e+02  1.274386e+02  3.823159e+02 -2.548773e+01 -2.548773e+01
 [61]  0.000000e+00  8.156073e+02  1.784141e+03 -2.548773e+01  5.734739e+02  1.223411e+03
 [67]  1.835116e+03  3.402612e+03  8.793266e+02  3.746696e+03  3.058527e+03  3.402612e+03
 [73]  3.746696e+03  1.223411e+03  5.734739e+02  8.793266e+02  1.835116e+03  3.058527e+03
 [79]  2.026274e+03  2.982064e+03 -4.933197e-12  8.410950e+02  2.408590e+03  4.205475e+02
 [85]  0.000000e+00  2.982064e+03  2.026274e+03  8.410950e+02  2.408590e+03  4.205475e+02
 [91] -4.933197e-12  0.000000e+00  2.089994e+03  5.097546e+01  1.044997e+03  7.901196e+02
 [97]  0.000000e+00  5.097546e+01  0.000000e+00  7.901196e+02  1.095972e+03  1.044997e+03
[103]  2.089994e+03  1.095972e+03  0.000000e+00  0.000000e+00  0.000000e+00  0.000000e+00
[109]  1.019509e+02  0.000000e+00  0.000000e+00  0.000000e+00  1.019509e+02  0.000000e+00
[115] -2.548773e+01  0.000000e+00  0.000000e+00 -2.548773e+01 -3.288798e-12  4.843854e+02
[121]  1.130233e+03  8.073090e+01  0.000000e+00 -2.691030e+01  1.291694e+03  1.130233e+03
[127]  1.130233e+03 -3.288798e-12  3.229236e+02  8.073090e+01 -2.691030e+01  1.130233e+03
[133]  0.000000e+00  4.843854e+02  1.291694e+03  3.229236e+02  1.856811e+03  6.189369e+02
[139]  2.152824e+02  1.157143e+03  0.000000e+00  4.843854e+02  2.987043e+03  0.000000e+00
[145] -2.691030e+01  4.843854e+02  1.856811e+03  0.000000e+00  1.157143e+03  2.152824e+02
[151]  2.987043e+03 -2.691030e+01  0.000000e+00  6.189369e+02  0.000000e+00  0.000000e+00
[157]  0.000000e+00 -1.345515e+01  0.000000e+00  0.000000e+00  4.171096e+02  6.054817e+02
[163]  1.506977e+03  1.466611e+03  0.000000e+00  1.466611e+03  2.018272e+02  1.506977e+03
[169]  0.000000e+00  6.054817e+02  4.171096e+02  0.000000e+00 -1.345515e+01  2.018272e+02

> ##########################
> 
> 
> #Number clicks on slider
> names(s)
  [1] "ID"                       "Date.x"                   "Treatment"               
  [4] "Subject.x"                "FinalProfit"              "ShowUpFee"               
  [7] "ShowUpFeeInvested"        "MoneyAdded"               "MoneyToPay"              
 [10] "MoneyEarned"              "total[1]"                 "total[2]"                
 [13] "total[3]"                 "total[4]"                 "total[5]"                
 [16] "total[6]"                 "total[7]"                 "total[8]"                
 [19] "total[9]"                 "total[10]"                "total[11]"               
 [22] "total[12]"                "total[13]"                "total[14]"               
 [25] "total[15]"                "total[16]"                "EndowmentDictator[1]"    
 [28] "EndowmentDictator[2]"     "EndowmentDictator[3]"     "EndowmentDictator[4]"    
 [31] "EndowmentDictator[5]"     "EndowmentDictator[6]"     "EndowmentDictator[7]"    
 [34] "EndowmentDictator[8]"     "EndowmentDictator[9]"     "EndowmentDictator[10]"   
 [37] "EndowmentDictator[11]"    "EndowmentDictator[12]"    "EndowmentDictator[13]"   
 [40] "EndowmentDictator[14]"    "EndowmentDictator[15]"    "EndowmentDictator[16]"   
 [43] "EndowmentRecipient[1]"    "EndowmentRecipient[2]"    "EndowmentRecipient[3]"   
 [46] "EndowmentRecipient[4]"    "EndowmentRecipient[5]"    "EndowmentRecipient[6]"   
 [49] "EndowmentRecipient[7]"    "EndowmentRecipient[8]"    "EndowmentRecipient[9]"   
 [52] "EndowmentRecipient[10]"   "EndowmentRecipient[11]"   "EndowmentRecipient[12]"  
 [55] "EndowmentRecipient[13]"   "EndowmentRecipient[14]"   "EndowmentRecipient[15]"  
 [58] "EndowmentRecipient[16]"   "RiskDictator[1]"          "RiskDictator[2]"         
 [61] "RiskDictator[3]"          "RiskDictator[4]"          "RiskDictator[5]"         
 [64] "RiskDictator[6]"          "RiskDictator[7]"          "RiskDictator[8]"         
 [67] "RiskDictator[9]"          "RiskDictator[10]"         "RiskDictator[11]"        
 [70] "RiskDictator[12]"         "RiskDictator[13]"         "RiskDictator[14]"        
 [73] "RiskDictator[15]"         "RiskDictator[16]"         "RiskRecipient[1]"        
 [76] "RiskRecipient[2]"         "RiskRecipient[3]"         "RiskRecipient[4]"        
 [79] "RiskRecipient[5]"         "RiskRecipient[6]"         "RiskRecipient[7]"        
 [82] "RiskRecipient[8]"         "RiskRecipient[9]"         "RiskRecipient[10]"       
 [85] "RiskRecipient[11]"        "RiskRecipient[12]"        "RiskRecipient[13]"       
 [88] "RiskRecipient[14]"        "RiskRecipient[15]"        "RiskRecipient[16]"       
 [91] "ReplacementDictator[1]"   "ReplacementDictator[2]"   "ReplacementDictator[3]"  
 [94] "ReplacementDictator[4]"   "ReplacementDictator[5]"   "ReplacementDictator[6]"  
 [97] "ReplacementDictator[7]"   "ReplacementDictator[8]"   "ReplacementDictator[9]"  
[100] "ReplacementDictator[10]"  "ReplacementDictator[11]"  "ReplacementDictator[12]" 
[103] "ReplacementDictator[13]"  "ReplacementDictator[14]"  "ReplacementDictator[15]" 
[106] "ReplacementDictator[16]"  "ReplacementRecipient[1]"  "ReplacementRecipient[2]" 
[109] "ReplacementRecipient[3]"  "ReplacementRecipient[4]"  "ReplacementRecipient[5]" 
[112] "ReplacementRecipient[6]"  "ReplacementRecipient[7]"  "ReplacementRecipient[8]" 
[115] "ReplacementRecipient[9]"  "ReplacementRecipient[10]" "ReplacementRecipient[11]"
[118] "ReplacementRecipient[12]" "ReplacementRecipient[13]" "ReplacementRecipient[14]"
[121] "ReplacementRecipient[15]" "ReplacementRecipient[16]" "give[1]"                 
[124] "give[2]"                  "give[3]"                  "give[4]"                 
[127] "give[5]"                  "give[6]"                  "give[7]"                 
[130] "give[8]"                  "give[9]"                  "give[10]"                
[133] "give[11]"                 "give[12]"                 "give[13]"                
[136] "give[14]"                 "give[15]"                 "give[16]"                
[139] "transfer[1]"              "transfer[2]"              "transfer[3]"             
[142] "transfer[4]"              "transfer[5]"              "transfer[6]"             
[145] "transfer[7]"              "transfer[8]"              "transfer[9]"             
[148] "transfer[10]"             "transfer[11]"             "transfer[12]"            
[151] "transfer[13]"             "transfer[14]"             "transfer[15]"            
[154] "transfer[16]"             "winDictator[1]"           "winDictator[2]"          
[157] "winDictator[3]"           "winDictator[4]"           "winDictator[5]"          
[160] "winDictator[6]"           "winDictator[7]"           "winDictator[8]"          
[163] "winDictator[9]"           "winDictator[10]"          "winDictator[11]"         
[166] "winDictator[12]"          "winDictator[13]"          "winDictator[14]"         
[169] "winDictator[15]"          "winDictator[16]"          "winRecipient[1]"         
[172] "winRecipient[2]"          "winRecipient[3]"          "winRecipient[4]"         
[175] "winRecipient[5]"          "winRecipient[6]"          "winRecipient[7]"         
[178] "winRecipient[8]"          "winRecipient[9]"          "winRecipient[10]"        
[181] "winRecipient[11]"         "winRecipient[12]"         "winRecipient[13]"        
[184] "winRecipient[14]"         "winRecipient[15]"         "winRecipient[16]"        
[187] "ProfitDictator[1]"        "ProfitDictator[2]"        "ProfitDictator[3]"       
[190] "ProfitDictator[4]"        "ProfitDictator[5]"        "ProfitDictator[6]"       
[193] "ProfitDictator[7]"        "ProfitDictator[8]"        "ProfitDictator[9]"       
[196] "ProfitDictator[10]"       "ProfitDictator[11]"       "ProfitDictator[12]"      
[199] "ProfitDictator[13]"       "ProfitDictator[14]"       "ProfitDictator[15]"      
[202] "ProfitDictator[16]"       "ProfitRecipient[1]"       "ProfitRecipient[2]"      
[205] "ProfitRecipient[3]"       "ProfitRecipient[4]"       "ProfitRecipient[5]"      
[208] "ProfitRecipient[6]"       "ProfitRecipient[7]"       "ProfitRecipient[8]"      
[211] "ProfitRecipient[9]"       "ProfitRecipient[10]"      "ProfitRecipient[11]"     
[214] "ProfitRecipient[12]"      "ProfitRecipient[13]"      "ProfitRecipient[14]"     
[217] "ProfitRecipient[15]"      "ProfitRecipient[16]"      "Round[1]"                
[220] "Round[2]"                 "Round[3]"                 "Round[4]"                
[223] "Round[5]"                 "Round[6]"                 "Round[7]"                
[226] "Round[8]"                 "Round[9]"                 "Round[10]"               
[229] "Round[11]"                "Round[12]"                "Round[13]"               
[232] "Round[14]"                "Round[15]"                "Round[16]"               
[235] "rdmRound[1]"              "rdmRound[2]"              "rdmRound[3]"             
[238] "rdmRound[4]"              "rdmRound[5]"              "rdmRound[6]"             
[241] "rdmRound[7]"              "rdmRound[8]"              "rdmRound[9]"             
[244] "rdmRound[10]"             "rdmRound[11]"             "rdmRound[12]"            
[247] "rdmRound[13]"             "rdmRound[14]"             "rdmRound[15]"            
[250] "rdmRound[16]"             "Role[1]"                  "Role[2]"                 
[253] "Role[3]"                  "Role[4]"                  "Role[5]"                 
[256] "Role[6]"                  "Role[7]"                  "Role[8]"                 
[259] "Role[9]"                  "Role[10]"                 "Role[11]"                
[262] "Role[12]"                 "Role[13]"                 "Role[14]"                
[265] "Role[15]"                 "Role[16]"                 "Group[1]"                
[268] "Group[2]"                 "Group[3]"                 "Group[4]"                
[271] "Group[5]"                 "Group[6]"                 "Group[7]"                
[274] "Group[8]"                 "Group[9]"                 "Group[10]"               
[277] "Group[11]"                "Group[12]"                "Group[13]"               
[280] "Group[14]"                "Group[15]"                "Group[16]"               
[283] "numClicks[1]"             "numClicks[2]"             "numClicks[3]"            
[286] "numClicks[4]"             "numClicks[5]"             "numClicks[6]"            
[289] "numClicks[7]"             "numClicks[8]"             "numClicks[9]"            
[292] "numClicks[10]"            "numClicks[11]"            "numClicks[12]"           
[295] "numClicks[13]"            "numClicks[14]"            "numClicks[15]"           
[298] "numClicks[16]"            "rdmNumRisk[1]"            "rdmNumRisk[2]"           
[301] "rdmNumRisk[3]"            "rdmNumRisk[4]"            "rdmNumRisk[5]"           
[304] "rdmNumRisk[6]"            "rdmNumRisk[7]"            "rdmNumRisk[8]"           
[307] "rdmNumRisk[9]"            "risk_decision[1]"         "risk_decision[2]"        
[310] "risk_decision[3]"         "risk_decision[4]"         "risk_decision[5]"        
[313] "risk_decision[6]"         "risk_decision[7]"         "risk_decision[8]"        
[316] "risk_decision[9]"         "risk_outcome[1]"          "risk_outcome[2]"         
[319] "risk_outcome[3]"          "risk_outcome[4]"          "risk_outcome[5]"         
[322] "risk_outcome[6]"          "risk_outcome[7]"          "risk_outcome[8]"         
[325] "risk_outcome[9]"          "Rate"                     "numRounds"               
[328] "i"                        "counter"                  "numRoundsRisk"           
[331] "p"                        "j"                        "k"                       
[334] "pay_dictator"             "pay_recipient"            "pay_risk"                
[337] "Date.y"                   "Subject.y"                "client"                  
[340] "age"                      "major"                    "gender"                  
[343] "religion"                 "rel_group"                "income_fam"              
[346] "polintr"                  "leftright"                "party"                   
[349] "stfgov"                   "gincdif"                  "equalopt"                
[352] "sucess"                   "instr"                    "change"                  
[355] "changes_reason"          

> s[,283]
  [1]  4  3  3  3  6  3  3  9  4 34  6  6 18  8  9  4 10  5  1  3  2  1 10  1  2  6  4  2 12  3
 [31]  8  7  6 12  6  2  6  7  3  6  6  6 16  6  2  2  2  3 12 17  4  3  4 13  1  3  3  5  4  2
 [61] 16  1 12  3  5 10 19  2  6  9  5  8  9 11  1  4  7  3 15 10  5 16  7  1  1  4  7  2  4  2
 [91]  7  1  4  7  5  7  4  2 12  6  5  8  1  7  2  1  1  1  1  6  7  8  3  3  3  8  9  7  6  5
[121]  2  1  3  8  5  8  4  4  2  1  8  6  6  3 15  4 46  6  7  1  1 18  7  1 19  5  7  5  2  2
[151]  3  4 13  1  8  3  1  6  2  2  5  7 14  4  5  1  3 16  1  1  1  1 13  2

> for(i in 1:16) { 
+   nam <- paste("numClicks", i, sep = "_")
+   assign(nam, s[,282+i]) ##start with -1
+ }

> s$`numClicks[16]`
  [1]  1  2  2  1  5  3  2  1  5  1  8  3  2  4  5  1  2  5  3  2  2  1  6  1  1  4  3  3  1  2
 [31]  3 12  5  8  1  7  5  4  1 10  1  5  1  2  2  1  2 10  5  2  6  2  1  3  1  3  5  1  4  2
 [61]  3  2  4  2  1  1  4  3  5  6  1  4 10  2  1  1  1  3  2  1  1  9  7  2  2  1  4  2  4  1
 [91]  1  2  6  1  1  9  2  1  2  3  3  3  1  5  1  5  1  1  1  1  2  3  1  1  1 13 12  1  8  2
[121] 13  1  2  2  5  5  1  6  6  1  1  4  7  4  2  1  7  4  2  2  1  1  4  1  2  1  2  1 11  1
[151]  2  4  4  1  2  1  1  2  2  1  2  1 10  2  4  1  2 16  1  1  3  8  2  3

> numClicks_16
  [1]  1  2  2  1  5  3  2  1  5  1  8  3  2  4  5  1  2  5  3  2  2  1  6  1  1  4  3  3  1  2
 [31]  3 12  5  8  1  7  5  4  1 10  1  5  1  2  2  1  2 10  5  2  6  2  1  3  1  3  5  1  4  2
 [61]  3  2  4  2  1  1  4  3  5  6  1  4 10  2  1  1  1  3  2  1  1  9  7  2  2  1  4  2  4  1
 [91]  1  2  6  1  1  9  2  1  2  3  3  3  1  5  1  5  1  1  1  1  2  3  1  1  1 13 12  1  8  2
[121] 13  1  2  2  5  5  1  6  6  1  1  4  7  4  2  1  7  4  2  2  1  1  4  1  2  1  2  1 11  1
[151]  2  4  4  1  2  1  1  2  2  1  2  1 10  2  4  1  2 16  1  1  3  8  2  3

> ##########################
> 
> 
> #Random round
> names(s)
  [1] "ID"                       "Date.x"                   "Treatment"               
  [4] "Subject.x"                "FinalProfit"              "ShowUpFee"               
  [7] "ShowUpFeeInvested"        "MoneyAdded"               "MoneyToPay"              
 [10] "MoneyEarned"              "total[1]"                 "total[2]"                
 [13] "total[3]"                 "total[4]"                 "total[5]"                
 [16] "total[6]"                 "total[7]"                 "total[8]"                
 [19] "total[9]"                 "total[10]"                "total[11]"               
 [22] "total[12]"                "total[13]"                "total[14]"               
 [25] "total[15]"                "total[16]"                "EndowmentDictator[1]"    
 [28] "EndowmentDictator[2]"     "EndowmentDictator[3]"     "EndowmentDictator[4]"    
 [31] "EndowmentDictator[5]"     "EndowmentDictator[6]"     "EndowmentDictator[7]"    
 [34] "EndowmentDictator[8]"     "EndowmentDictator[9]"     "EndowmentDictator[10]"   
 [37] "EndowmentDictator[11]"    "EndowmentDictator[12]"    "EndowmentDictator[13]"   
 [40] "EndowmentDictator[14]"    "EndowmentDictator[15]"    "EndowmentDictator[16]"   
 [43] "EndowmentRecipient[1]"    "EndowmentRecipient[2]"    "EndowmentRecipient[3]"   
 [46] "EndowmentRecipient[4]"    "EndowmentRecipient[5]"    "EndowmentRecipient[6]"   
 [49] "EndowmentRecipient[7]"    "EndowmentRecipient[8]"    "EndowmentRecipient[9]"   
 [52] "EndowmentRecipient[10]"   "EndowmentRecipient[11]"   "EndowmentRecipient[12]"  
 [55] "EndowmentRecipient[13]"   "EndowmentRecipient[14]"   "EndowmentRecipient[15]"  
 [58] "EndowmentRecipient[16]"   "RiskDictator[1]"          "RiskDictator[2]"         
 [61] "RiskDictator[3]"          "RiskDictator[4]"          "RiskDictator[5]"         
 [64] "RiskDictator[6]"          "RiskDictator[7]"          "RiskDictator[8]"         
 [67] "RiskDictator[9]"          "RiskDictator[10]"         "RiskDictator[11]"        
 [70] "RiskDictator[12]"         "RiskDictator[13]"         "RiskDictator[14]"        
 [73] "RiskDictator[15]"         "RiskDictator[16]"         "RiskRecipient[1]"        
 [76] "RiskRecipient[2]"         "RiskRecipient[3]"         "RiskRecipient[4]"        
 [79] "RiskRecipient[5]"         "RiskRecipient[6]"         "RiskRecipient[7]"        
 [82] "RiskRecipient[8]"         "RiskRecipient[9]"         "RiskRecipient[10]"       
 [85] "RiskRecipient[11]"        "RiskRecipient[12]"        "RiskRecipient[13]"       
 [88] "RiskRecipient[14]"        "RiskRecipient[15]"        "RiskRecipient[16]"       
 [91] "ReplacementDictator[1]"   "ReplacementDictator[2]"   "ReplacementDictator[3]"  
 [94] "ReplacementDictator[4]"   "ReplacementDictator[5]"   "ReplacementDictator[6]"  
 [97] "ReplacementDictator[7]"   "ReplacementDictator[8]"   "ReplacementDictator[9]"  
[100] "ReplacementDictator[10]"  "ReplacementDictator[11]"  "ReplacementDictator[12]" 
[103] "ReplacementDictator[13]"  "ReplacementDictator[14]"  "ReplacementDictator[15]" 
[106] "ReplacementDictator[16]"  "ReplacementRecipient[1]"  "ReplacementRecipient[2]" 
[109] "ReplacementRecipient[3]"  "ReplacementRecipient[4]"  "ReplacementRecipient[5]" 
[112] "ReplacementRecipient[6]"  "ReplacementRecipient[7]"  "ReplacementRecipient[8]" 
[115] "ReplacementRecipient[9]"  "ReplacementRecipient[10]" "ReplacementRecipient[11]"
[118] "ReplacementRecipient[12]" "ReplacementRecipient[13]" "ReplacementRecipient[14]"
[121] "ReplacementRecipient[15]" "ReplacementRecipient[16]" "give[1]"                 
[124] "give[2]"                  "give[3]"                  "give[4]"                 
[127] "give[5]"                  "give[6]"                  "give[7]"                 
[130] "give[8]"                  "give[9]"                  "give[10]"                
[133] "give[11]"                 "give[12]"                 "give[13]"                
[136] "give[14]"                 "give[15]"                 "give[16]"                
[139] "transfer[1]"              "transfer[2]"              "transfer[3]"             
[142] "transfer[4]"              "transfer[5]"              "transfer[6]"             
[145] "transfer[7]"              "transfer[8]"              "transfer[9]"             
[148] "transfer[10]"             "transfer[11]"             "transfer[12]"            
[151] "transfer[13]"             "transfer[14]"             "transfer[15]"            
[154] "transfer[16]"             "winDictator[1]"           "winDictator[2]"          
[157] "winDictator[3]"           "winDictator[4]"           "winDictator[5]"          
[160] "winDictator[6]"           "winDictator[7]"           "winDictator[8]"          
[163] "winDictator[9]"           "winDictator[10]"          "winDictator[11]"         
[166] "winDictator[12]"          "winDictator[13]"          "winDictator[14]"         
[169] "winDictator[15]"          "winDictator[16]"          "winRecipient[1]"         
[172] "winRecipient[2]"          "winRecipient[3]"          "winRecipient[4]"         
[175] "winRecipient[5]"          "winRecipient[6]"          "winRecipient[7]"         
[178] "winRecipient[8]"          "winRecipient[9]"          "winRecipient[10]"        
[181] "winRecipient[11]"         "winRecipient[12]"         "winRecipient[13]"        
[184] "winRecipient[14]"         "winRecipient[15]"         "winRecipient[16]"        
[187] "ProfitDictator[1]"        "ProfitDictator[2]"        "ProfitDictator[3]"       
[190] "ProfitDictator[4]"        "ProfitDictator[5]"        "ProfitDictator[6]"       
[193] "ProfitDictator[7]"        "ProfitDictator[8]"        "ProfitDictator[9]"       
[196] "ProfitDictator[10]"       "ProfitDictator[11]"       "ProfitDictator[12]"      
[199] "ProfitDictator[13]"       "ProfitDictator[14]"       "ProfitDictator[15]"      
[202] "ProfitDictator[16]"       "ProfitRecipient[1]"       "ProfitRecipient[2]"      
[205] "ProfitRecipient[3]"       "ProfitRecipient[4]"       "ProfitRecipient[5]"      
[208] "ProfitRecipient[6]"       "ProfitRecipient[7]"       "ProfitRecipient[8]"      
[211] "ProfitRecipient[9]"       "ProfitRecipient[10]"      "ProfitRecipient[11]"     
[214] "ProfitRecipient[12]"      "ProfitRecipient[13]"      "ProfitRecipient[14]"     
[217] "ProfitRecipient[15]"      "ProfitRecipient[16]"      "Round[1]"                
[220] "Round[2]"                 "Round[3]"                 "Round[4]"                
[223] "Round[5]"                 "Round[6]"                 "Round[7]"                
[226] "Round[8]"                 "Round[9]"                 "Round[10]"               
[229] "Round[11]"                "Round[12]"                "Round[13]"               
[232] "Round[14]"                "Round[15]"                "Round[16]"               
[235] "rdmRound[1]"              "rdmRound[2]"              "rdmRound[3]"             
[238] "rdmRound[4]"              "rdmRound[5]"              "rdmRound[6]"             
[241] "rdmRound[7]"              "rdmRound[8]"              "rdmRound[9]"             
[244] "rdmRound[10]"             "rdmRound[11]"             "rdmRound[12]"            
[247] "rdmRound[13]"             "rdmRound[14]"             "rdmRound[15]"            
[250] "rdmRound[16]"             "Role[1]"                  "Role[2]"                 
[253] "Role[3]"                  "Role[4]"                  "Role[5]"                 
[256] "Role[6]"                  "Role[7]"                  "Role[8]"                 
[259] "Role[9]"                  "Role[10]"                 "Role[11]"                
[262] "Role[12]"                 "Role[13]"                 "Role[14]"                
[265] "Role[15]"                 "Role[16]"                 "Group[1]"                
[268] "Group[2]"                 "Group[3]"                 "Group[4]"                
[271] "Group[5]"                 "Group[6]"                 "Group[7]"                
[274] "Group[8]"                 "Group[9]"                 "Group[10]"               
[277] "Group[11]"                "Group[12]"                "Group[13]"               
[280] "Group[14]"                "Group[15]"                "Group[16]"               
[283] "numClicks[1]"             "numClicks[2]"             "numClicks[3]"            
[286] "numClicks[4]"             "numClicks[5]"             "numClicks[6]"            
[289] "numClicks[7]"             "numClicks[8]"             "numClicks[9]"            
[292] "numClicks[10]"            "numClicks[11]"            "numClicks[12]"           
[295] "numClicks[13]"            "numClicks[14]"            "numClicks[15]"           
[298] "numClicks[16]"            "rdmNumRisk[1]"            "rdmNumRisk[2]"           
[301] "rdmNumRisk[3]"            "rdmNumRisk[4]"            "rdmNumRisk[5]"           
[304] "rdmNumRisk[6]"            "rdmNumRisk[7]"            "rdmNumRisk[8]"           
[307] "rdmNumRisk[9]"            "risk_decision[1]"         "risk_decision[2]"        
[310] "risk_decision[3]"         "risk_decision[4]"         "risk_decision[5]"        
[313] "risk_decision[6]"         "risk_decision[7]"         "risk_decision[8]"        
[316] "risk_decision[9]"         "risk_outcome[1]"          "risk_outcome[2]"         
[319] "risk_outcome[3]"          "risk_outcome[4]"          "risk_outcome[5]"         
[322] "risk_outcome[6]"          "risk_outcome[7]"          "risk_outcome[8]"         
[325] "risk_outcome[9]"          "Rate"                     "numRounds"               
[328] "i"                        "counter"                  "numRoundsRisk"           
[331] "p"                        "j"                        "k"                       
[334] "pay_dictator"             "pay_recipient"            "pay_risk"                
[337] "Date.y"                   "Subject.y"                "client"                  
[340] "age"                      "major"                    "gender"                  
[343] "religion"                 "rel_group"                "income_fam"              
[346] "polintr"                  "leftright"                "party"                   
[349] "stfgov"                   "gincdif"                  "equalopt"                
[352] "sucess"                   "instr"                    "change"                  
[355] "changes_reason"          

> s[,235]
  [1] 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 16 16 16 16 16 16 16 16 16 16
 [31] 16 16 16 16 16 16 16 16 16 16 16 16  9  9  9  9  9  9  9  9  9  9  9  9  9  9  9  9  9  9
 [61]  9  9  9  9 10 10 10 10 10 10 10 10 10 10 10 10 10 10  8  8  8  8  8  8  8  8  8  8  8  8
 [91]  8  8  3  3  3  3  3  3  3  3  3  3  3  3 12 12 12 12 12 12 12 12 12 12 12 12 12 12  5  5
[121]  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5 16 16 16 16 16 16 16 16 16 16 16 16 16 16
[151] 16 16 16 16 16 16  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7

> for(i in 1:16) { 
+   nam <- paste("round", i, sep = "_")
+   assign(nam, s[,234+i]) ##start with -1
+ }

> #Test
> s$`rdmRound[15]`
  [1] 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15  3  3  3  3  3  3  3  3  3  3
 [31]  3  3  3  3  3  3  3  3  3  3  3  3  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5
 [61]  5  5  5  5 13 13 13 13 13 13 13 13 13 13 13 13 13 13 11 11 11 11 11 11 11 11 11 11 11 11
 [91] 11 11  8  8  8  8  8  8  8  8  8  8  8  8 11 11 11 11 11 11 11 11 11 11 11 11 11 11 16 16
[121] 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16  9  9  9  9  9  9  9  9  9  9  9  9  9  9
[151]  9  9  9  9  9  9  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4

> round_15
  [1] 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15 15  3  3  3  3  3  3  3  3  3  3
 [31]  3  3  3  3  3  3  3  3  3  3  3  3  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5
 [61]  5  5  5  5 13 13 13 13 13 13 13 13 13 13 13 13 13 13 11 11 11 11 11 11 11 11 11 11 11 11
 [91] 11 11  8  8  8  8  8  8  8  8  8  8  8  8 11 11 11 11 11 11 11 11 11 11 11 11 11 11 16 16
[121] 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16  9  9  9  9  9  9  9  9  9  9  9  9  9  9
[151]  9  9  9  9  9  9  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4

> ##########################
> 
> 
> #Risk aversion
> names(s)
  [1] "ID"                       "Date.x"                   "Treatment"               
  [4] "Subject.x"                "FinalProfit"              "ShowUpFee"               
  [7] "ShowUpFeeInvested"        "MoneyAdded"               "MoneyToPay"              
 [10] "MoneyEarned"              "total[1]"                 "total[2]"                
 [13] "total[3]"                 "total[4]"                 "total[5]"                
 [16] "total[6]"                 "total[7]"                 "total[8]"                
 [19] "total[9]"                 "total[10]"                "total[11]"               
 [22] "total[12]"                "total[13]"                "total[14]"               
 [25] "total[15]"                "total[16]"                "EndowmentDictator[1]"    
 [28] "EndowmentDictator[2]"     "EndowmentDictator[3]"     "EndowmentDictator[4]"    
 [31] "EndowmentDictator[5]"     "EndowmentDictator[6]"     "EndowmentDictator[7]"    
 [34] "EndowmentDictator[8]"     "EndowmentDictator[9]"     "EndowmentDictator[10]"   
 [37] "EndowmentDictator[11]"    "EndowmentDictator[12]"    "EndowmentDictator[13]"   
 [40] "EndowmentDictator[14]"    "EndowmentDictator[15]"    "EndowmentDictator[16]"   
 [43] "EndowmentRecipient[1]"    "EndowmentRecipient[2]"    "EndowmentRecipient[3]"   
 [46] "EndowmentRecipient[4]"    "EndowmentRecipient[5]"    "EndowmentRecipient[6]"   
 [49] "EndowmentRecipient[7]"    "EndowmentRecipient[8]"    "EndowmentRecipient[9]"   
 [52] "EndowmentRecipient[10]"   "EndowmentRecipient[11]"   "EndowmentRecipient[12]"  
 [55] "EndowmentRecipient[13]"   "EndowmentRecipient[14]"   "EndowmentRecipient[15]"  
 [58] "EndowmentRecipient[16]"   "RiskDictator[1]"          "RiskDictator[2]"         
 [61] "RiskDictator[3]"          "RiskDictator[4]"          "RiskDictator[5]"         
 [64] "RiskDictator[6]"          "RiskDictator[7]"          "RiskDictator[8]"         
 [67] "RiskDictator[9]"          "RiskDictator[10]"         "RiskDictator[11]"        
 [70] "RiskDictator[12]"         "RiskDictator[13]"         "RiskDictator[14]"        
 [73] "RiskDictator[15]"         "RiskDictator[16]"         "RiskRecipient[1]"        
 [76] "RiskRecipient[2]"         "RiskRecipient[3]"         "RiskRecipient[4]"        
 [79] "RiskRecipient[5]"         "RiskRecipient[6]"         "RiskRecipient[7]"        
 [82] "RiskRecipient[8]"         "RiskRecipient[9]"         "RiskRecipient[10]"       
 [85] "RiskRecipient[11]"        "RiskRecipient[12]"        "RiskRecipient[13]"       
 [88] "RiskRecipient[14]"        "RiskRecipient[15]"        "RiskRecipient[16]"       
 [91] "ReplacementDictator[1]"   "ReplacementDictator[2]"   "ReplacementDictator[3]"  
 [94] "ReplacementDictator[4]"   "ReplacementDictator[5]"   "ReplacementDictator[6]"  
 [97] "ReplacementDictator[7]"   "ReplacementDictator[8]"   "ReplacementDictator[9]"  
[100] "ReplacementDictator[10]"  "ReplacementDictator[11]"  "ReplacementDictator[12]" 
[103] "ReplacementDictator[13]"  "ReplacementDictator[14]"  "ReplacementDictator[15]" 
[106] "ReplacementDictator[16]"  "ReplacementRecipient[1]"  "ReplacementRecipient[2]" 
[109] "ReplacementRecipient[3]"  "ReplacementRecipient[4]"  "ReplacementRecipient[5]" 
[112] "ReplacementRecipient[6]"  "ReplacementRecipient[7]"  "ReplacementRecipient[8]" 
[115] "ReplacementRecipient[9]"  "ReplacementRecipient[10]" "ReplacementRecipient[11]"
[118] "ReplacementRecipient[12]" "ReplacementRecipient[13]" "ReplacementRecipient[14]"
[121] "ReplacementRecipient[15]" "ReplacementRecipient[16]" "give[1]"                 
[124] "give[2]"                  "give[3]"                  "give[4]"                 
[127] "give[5]"                  "give[6]"                  "give[7]"                 
[130] "give[8]"                  "give[9]"                  "give[10]"                
[133] "give[11]"                 "give[12]"                 "give[13]"                
[136] "give[14]"                 "give[15]"                 "give[16]"                
[139] "transfer[1]"              "transfer[2]"              "transfer[3]"             
[142] "transfer[4]"              "transfer[5]"              "transfer[6]"             
[145] "transfer[7]"              "transfer[8]"              "transfer[9]"             
[148] "transfer[10]"             "transfer[11]"             "transfer[12]"            
[151] "transfer[13]"             "transfer[14]"             "transfer[15]"            
[154] "transfer[16]"             "winDictator[1]"           "winDictator[2]"          
[157] "winDictator[3]"           "winDictator[4]"           "winDictator[5]"          
[160] "winDictator[6]"           "winDictator[7]"           "winDictator[8]"          
[163] "winDictator[9]"           "winDictator[10]"          "winDictator[11]"         
[166] "winDictator[12]"          "winDictator[13]"          "winDictator[14]"         
[169] "winDictator[15]"          "winDictator[16]"          "winRecipient[1]"         
[172] "winRecipient[2]"          "winRecipient[3]"          "winRecipient[4]"         
[175] "winRecipient[5]"          "winRecipient[6]"          "winRecipient[7]"         
[178] "winRecipient[8]"          "winRecipient[9]"          "winRecipient[10]"        
[181] "winRecipient[11]"         "winRecipient[12]"         "winRecipient[13]"        
[184] "winRecipient[14]"         "winRecipient[15]"         "winRecipient[16]"        
[187] "ProfitDictator[1]"        "ProfitDictator[2]"        "ProfitDictator[3]"       
[190] "ProfitDictator[4]"        "ProfitDictator[5]"        "ProfitDictator[6]"       
[193] "ProfitDictator[7]"        "ProfitDictator[8]"        "ProfitDictator[9]"       
[196] "ProfitDictator[10]"       "ProfitDictator[11]"       "ProfitDictator[12]"      
[199] "ProfitDictator[13]"       "ProfitDictator[14]"       "ProfitDictator[15]"      
[202] "ProfitDictator[16]"       "ProfitRecipient[1]"       "ProfitRecipient[2]"      
[205] "ProfitRecipient[3]"       "ProfitRecipient[4]"       "ProfitRecipient[5]"      
[208] "ProfitRecipient[6]"       "ProfitRecipient[7]"       "ProfitRecipient[8]"      
[211] "ProfitRecipient[9]"       "ProfitRecipient[10]"      "ProfitRecipient[11]"     
[214] "ProfitRecipient[12]"      "ProfitRecipient[13]"      "ProfitRecipient[14]"     
[217] "ProfitRecipient[15]"      "ProfitRecipient[16]"      "Round[1]"                
[220] "Round[2]"                 "Round[3]"                 "Round[4]"                
[223] "Round[5]"                 "Round[6]"                 "Round[7]"                
[226] "Round[8]"                 "Round[9]"                 "Round[10]"               
[229] "Round[11]"                "Round[12]"                "Round[13]"               
[232] "Round[14]"                "Round[15]"                "Round[16]"               
[235] "rdmRound[1]"              "rdmRound[2]"              "rdmRound[3]"             
[238] "rdmRound[4]"              "rdmRound[5]"              "rdmRound[6]"             
[241] "rdmRound[7]"              "rdmRound[8]"              "rdmRound[9]"             
[244] "rdmRound[10]"             "rdmRound[11]"             "rdmRound[12]"            
[247] "rdmRound[13]"             "rdmRound[14]"             "rdmRound[15]"            
[250] "rdmRound[16]"             "Role[1]"                  "Role[2]"                 
[253] "Role[3]"                  "Role[4]"                  "Role[5]"                 
[256] "Role[6]"                  "Role[7]"                  "Role[8]"                 
[259] "Role[9]"                  "Role[10]"                 "Role[11]"                
[262] "Role[12]"                 "Role[13]"                 "Role[14]"                
[265] "Role[15]"                 "Role[16]"                 "Group[1]"                
[268] "Group[2]"                 "Group[3]"                 "Group[4]"                
[271] "Group[5]"                 "Group[6]"                 "Group[7]"                
[274] "Group[8]"                 "Group[9]"                 "Group[10]"               
[277] "Group[11]"                "Group[12]"                "Group[13]"               
[280] "Group[14]"                "Group[15]"                "Group[16]"               
[283] "numClicks[1]"             "numClicks[2]"             "numClicks[3]"            
[286] "numClicks[4]"             "numClicks[5]"             "numClicks[6]"            
[289] "numClicks[7]"             "numClicks[8]"             "numClicks[9]"            
[292] "numClicks[10]"            "numClicks[11]"            "numClicks[12]"           
[295] "numClicks[13]"            "numClicks[14]"            "numClicks[15]"           
[298] "numClicks[16]"            "rdmNumRisk[1]"            "rdmNumRisk[2]"           
[301] "rdmNumRisk[3]"            "rdmNumRisk[4]"            "rdmNumRisk[5]"           
[304] "rdmNumRisk[6]"            "rdmNumRisk[7]"            "rdmNumRisk[8]"           
[307] "rdmNumRisk[9]"            "risk_decision[1]"         "risk_decision[2]"        
[310] "risk_decision[3]"         "risk_decision[4]"         "risk_decision[5]"        
[313] "risk_decision[6]"         "risk_decision[7]"         "risk_decision[8]"        
[316] "risk_decision[9]"         "risk_outcome[1]"          "risk_outcome[2]"         
[319] "risk_outcome[3]"          "risk_outcome[4]"          "risk_outcome[5]"         
[322] "risk_outcome[6]"          "risk_outcome[7]"          "risk_outcome[8]"         
[325] "risk_outcome[9]"          "Rate"                     "numRounds"               
[328] "i"                        "counter"                  "numRoundsRisk"           
[331] "p"                        "j"                        "k"                       
[334] "pay_dictator"             "pay_recipient"            "pay_risk"                
[337] "Date.y"                   "Subject.y"                "client"                  
[340] "age"                      "major"                    "gender"                  
[343] "religion"                 "rel_group"                "income_fam"              
[346] "polintr"                  "leftright"                "party"                   
[349] "stfgov"                   "gincdif"                  "equalopt"                
[352] "sucess"                   "instr"                    "change"                  
[355] "changes_reason"          

> s[,308]
  [1] 1 1 1 2 1 1 1 1 1 1 1 1 1 1 1 1 1 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 1 2 2 1 1 1 1 1 1 1 1 1
 [46] 1 1 1 1 1 1 2 1 1 2 1 1 1 1 1 1 2 1 1 2 2 2 1 1 1 1 1 1 2 1 1 1 2 1 1 1 1 1 1 1 1 1 1 1 1
 [91] 1 1 1 1 2 1 2 1 1 1 1 1 2 1 1 2 1 2 1 1 1 1 2 1 2 2 1 1 1 1 1 1 1 1 2 1 1 1 1 1 1 2 1 1 1
[136] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 1 2 1 1 1 2 1 1 2 1 1 1 2 1 2 1 1 1 1 1

> s[,308+8]
  [1] 2 2 2 2 1 2 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 2 1 2 2 2 2 2 2 2 2 2 1 1 2 2 1 2 2 2 2 1 1
 [46] 2 2 2 2 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2
 [91] 2 2 2 2 2 2 2 1 2 2 2 2 2 2 2 1 2 2 2 1 2 2 2 2 2 1 2 2 2 2 2 1 2 2 1 2 2 1 2 2 2 2 2 2 2
[136] 2 2 2 1 2 2 2 2 2 2 2 2 1 2 2 2 2 2 1 2 2 2 2 2 1 2 2 2 2 2 2 1 2 2 2 1 2 2 2

> for(i in 1:9) { 
+   nam <- paste("risk", i, sep = "_")
+   assign(nam, s[,307+i])
+ }

> #Test
> s$`risk_decision[9]`
  [1] 2 2 2 2 1 2 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 2 1 2 2 2 2 2 2 2 2 2 1 1 2 2 1 2 2 2 2 1 1
 [46] 2 2 2 2 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2
 [91] 2 2 2 2 2 2 2 1 2 2 2 2 2 2 2 1 2 2 2 1 2 2 2 2 2 1 2 2 2 2 2 1 2 2 1 2 2 1 2 2 2 2 2 2 2
[136] 2 2 2 1 2 2 2 2 2 2 2 2 1 2 2 2 2 2 1 2 2 2 2 2 1 2 2 2 2 2 2 1 2 2 2 1 2 2 2

> risk_9
  [1] 2 2 2 2 1 2 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 2 1 2 2 2 2 2 2 2 2 2 1 1 2 2 1 2 2 2 2 1 1
 [46] 2 2 2 2 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2
 [91] 2 2 2 2 2 2 2 1 2 2 2 2 2 2 2 1 2 2 2 1 2 2 2 2 2 1 2 2 2 2 2 1 2 2 1 2 2 1 2 2 2 2 2 2 2
[136] 2 2 2 1 2 2 2 2 2 2 2 2 1 2 2 2 2 2 1 2 2 2 2 2 1 2 2 2 2 2 2 1 2 2 2 1 2 2 2

> ##########################
> 
> 
> table(sbj$major)

                                                             
                                                           1 
                                       Angewandte Informatik 
                                                           2 
                                                   Anglistik 
                                                           1 
Anglistik & Politik- und Wirtschaftswissenschaften (lehramt) 
                                                           1 
                Anglistik und germanistik im Kulturvergleich 
                                                           1 
                                          B. Sc. Psychologie 
                                                           1 
             Bachelor Kultur und Wirtschaft: Romanistik, VWL 
                                                           1 
                   Bachelor Kultur&Wirtschaft: Anglistik/BWL 
                                                           1 
                                              BaKuWi MKW BWL 
                                                           1 
            BaKuWi: Romanistik: Italienisch mit Sachfach BWL 
                                                           1 
                                    Betreibswirtschaftslehre 
                                                           1 
                                    Betriebswirtschaftslehre 
                                                           6 
                              Betriebswirtschaftslehre B.Sc. 
                                                           1 
                                      Bildungswissenschaften 
                                                           1 
                                                         bio 
                                                           1 
                                                    Biologie 
                                                           1 
                                                         bwl 
                                                           1 
                                                         BWL 
                                                          27 
                                               BWL im Master 
                                                           1 
                                                  Econcomics 
                                                           1 
                                                   Economics 
                                                           9 
                                    Economics und Geographie 
                                                           1 
                                      Erziehungswissenschaft 
                                                           1 
                                        früher 3 Sem. Psych. 
                                                           1 
                                                 Germanistik 
                                                           1 
                                         Germanistik mit Bwl 
                                                           1 
                                                  Informatik 
                                                           4 
                                                        Jura 
                                                           8 
                                        Konferenzdolmetschen 
                                                           1 
                                                     MaKuWi  
                                                           1 
                                          MaKuWi Philosophie 
                                                           1 
                                                  Management 
                                                           1 
                                        Master in Management 
                                                           1 
                                           Master Management 
                                                           1 
                                                  Mathematik 
                                                           4 
                      Medien- und Kommunikationswissenschaft 
                                                           1 
                                                     MMM BWL 
                                                           1 
                                   Molekulare Biotechnologie 
                                                           1 
                                                 Philosophie 
                                                           1 
                                                      Physik 
                                                           4 
                                         politikwissenschaft 
                                                           1 
                                         Politikwissenschaft 
                                                           4 
                                         Politische Ökonomik 
                                                           1 
                                     Politische Wissenschaft 
                                                           2 
                                     POLITOLOGIE/PSYCHOLOGIE 
                                                           1 
                                                        PoWi 
                                                           1 
                                                 Psychologie 
                                                           5 
                                          Rechtswissenschaft 
                                                           2 
                                        Rechtswissenschaften 
                                                           1 
                                 Rechtswissenschaften (Jura) 
                                                           1 
                                                  Romanistik 
                                                           1 
                                             Sinologie + VWL 
                                                           1 
                                                  Soziologie 
                                                           8 
                                    Übersetzungswissenschaft 
                                                           2 
                                  Übersetzungswissenschaften 
                                                           1 
                                            Unternehmensjura 
                                                           5 
                                      Unternehmensjurist LLB 
                                                           1 
                                       Volkswirtschaftslehre 
                                                           2 
                                Vorderasiatische Archäologie 
                                                           1 
                                                         vwl 
                                                           1 
                                                         VWL 
                                                          17 
                                                VWL, Politik 
                                                           1 
                                                      Wipaed 
                                                           1 
                                         Wirschaftspadagögik 
                                                           1 
                                       Wirtschaftsinformatik 
                                                           2 
                                     Wirtschaftsmathemathiuk 
                                                           1 
                                       Wirtschaftsmathematik 
                                                           1 
                                        Wirtschaftspädagogig 
                                                           1 
                                        Wirtschaftspädagogik 
                                                          10 
                                                       wiüäd 
                                                           1 

> sbj$major_code<-sbj$major

> sbj$major_code[sbj$major=="Jura"|sbj$major=="jura"|sbj$major=="Unternehmensjura"
+                |sbj$major=="Unternehmensjurist"
+                |sbj$major=="Unternehmensjurist LLB"|
+                  sbj$major=="Rechtswissenschaften"|sbj$major=="Unternehmensjura"]<-"Jura"

> sbj$major_code[sbj$major=="VWL"|sbj$major=="vwl"|sbj$major=="Economics"
+                |sbj$major=="Volkswirtschaftslehre"|sbj$major=="VWL mit Beifach Psychologie"]<-"VWL"

> sbj$major_code[sbj$major=="BWL"|sbj$major=="Betriebswirtschaftslehre"
+                |sbj$major=="Management Master"|sbj$major=="MMM"
+                |sbj$major=="Mannheim Master of Management"|sbj$major=="Master in Management"
+                |sbj$major=="BaKuWi"]<-"BWL"

> sbj$major_code[sbj$major=="Wip?d"|sbj$major=="Wirtschaftsp?daogik"
+                |sbj$major=="Wirtschaftsp?dagogik"]<-"Wirtschaftsp?dagogik"

> sbj$major_code[sbj$major=="Wirtschaftsinformatik"|sbj$major=="Wifo"
+                |sbj$major=="WiMa"
+                |sbj$major=="Wirtschaftsmathe"]<-"Wirtschaftsinformatik"

> sbj$major_code[sbj$major=="Humanmedizin"|sbj$major=="Medizin"
+                |sbj$major=="Pharmazie"]<-"Medizin"

> sbj$major_code[sbj$major=="Soziologie "|sbj$major=="Soziologie"]<-"Soziologie"

> table(sbj$major_code)

                                                             
                                                           1 
                                       Angewandte Informatik 
                                                           2 
                                                   Anglistik 
                                                           1 
Anglistik & Politik- und Wirtschaftswissenschaften (lehramt) 
                                                           1 
                Anglistik und germanistik im Kulturvergleich 
                                                           1 
                                          B. Sc. Psychologie 
                                                           1 
             Bachelor Kultur und Wirtschaft: Romanistik, VWL 
                                                           1 
                   Bachelor Kultur&Wirtschaft: Anglistik/BWL 
                                                           1 
                                              BaKuWi MKW BWL 
                                                           1 
            BaKuWi: Romanistik: Italienisch mit Sachfach BWL 
                                                           1 
                                    Betreibswirtschaftslehre 
                                                           1 
                              Betriebswirtschaftslehre B.Sc. 
                                                           1 
                                      Bildungswissenschaften 
                                                           1 
                                                         bio 
                                                           1 
                                                    Biologie 
                                                           1 
                                                         bwl 
                                                           1 
                                                         BWL 
                                                          34 
                                               BWL im Master 
                                                           1 
                                                  Econcomics 
                                                           1 
                                    Economics und Geographie 
                                                           1 
                                      Erziehungswissenschaft 
                                                           1 
                                        früher 3 Sem. Psych. 
                                                           1 
                                                 Germanistik 
                                                           1 
                                         Germanistik mit Bwl 
                                                           1 
                                                  Informatik 
                                                           4 
                                                        Jura 
                                                          15 
                                        Konferenzdolmetschen 
                                                           1 
                                                     MaKuWi  
                                                           1 
                                          MaKuWi Philosophie 
                                                           1 
                                                  Management 
                                                           1 
                                           Master Management 
                                                           1 
                                                  Mathematik 
                                                           4 
                      Medien- und Kommunikationswissenschaft 
                                                           1 
                                                     MMM BWL 
                                                           1 
                                   Molekulare Biotechnologie 
                                                           1 
                                                 Philosophie 
                                                           1 
                                                      Physik 
                                                           4 
                                         politikwissenschaft 
                                                           1 
                                         Politikwissenschaft 
                                                           4 
                                         Politische Ökonomik 
                                                           1 
                                     Politische Wissenschaft 
                                                           2 
                                     POLITOLOGIE/PSYCHOLOGIE 
                                                           1 
                                                        PoWi 
                                                           1 
                                                 Psychologie 
                                                           5 
                                          Rechtswissenschaft 
                                                           2 
                                 Rechtswissenschaften (Jura) 
                                                           1 
                                                  Romanistik 
                                                           1 
                                             Sinologie + VWL 
                                                           1 
                                                  Soziologie 
                                                           8 
                                    Übersetzungswissenschaft 
                                                           2 
                                  Übersetzungswissenschaften 
                                                           1 
                                Vorderasiatische Archäologie 
                                                           1 
                                                         VWL 
                                                          29 
                                                VWL, Politik 
                                                           1 
                                                      Wipaed 
                                                           1 
                                         Wirschaftspadagögik 
                                                           1 
                                       Wirtschaftsinformatik 
                                                           2 
                                     Wirtschaftsmathemathiuk 
                                                           1 
                                       Wirtschaftsmathematik 
                                                           1 
                                        Wirtschaftspädagogig 
                                                           1 
                                        Wirtschaftspädagogik 
                                                          10 
                                                       wiüäd 
                                                           1 

> ##########################
> 
> 
> ##########################
> #Generate data frame
> ##########################
> 
> dat<-cbind.data.frame(s$ID,s$Date.x,s$`Role[1]`,
+                          total_1,total_2, total_3,total_4,total_5,total_6,total_7,
+                          total_8,total_9,total_10,total_11,total_12,total_13,
+                          total_14,total_15,total_16,
+                          EndowmentDictator_1,EndowmentDictator_2, EndowmentDictator_3,EndowmentDictator_4,
+                          EndowmentDictator_5,EndowmentDictator_6,EndowmentDictator_7,
+                          EndowmentDictator_8,EndowmentDictator_9,EndowmentDictator_10,EndowmentDictator_11,
+                          EndowmentDictator_12,EndowmentDictator_13,
+                          EndowmentDictator_14,EndowmentDictator_15,EndowmentDictator_16,
+                          EndowmentRecipient_1,EndowmentRecipient_2, EndowmentRecipient_3,EndowmentRecipient_4,EndowmentRecipient_5,EndowmentRecipient_6,EndowmentRecipient_7,
+                          EndowmentRecipient_8,EndowmentRecipient_9,EndowmentRecipient_10,EndowmentRecipient_11,EndowmentRecipient_12,EndowmentRecipient_13,
+                          EndowmentRecipient_14,EndowmentRecipient_15,EndowmentRecipient_16,
+                          RiskDictator_1,RiskDictator_2, RiskDictator_3,RiskDictator_4,RiskDictator_5,RiskDictator_6,RiskDictator_7,
+                          RiskDictator_8,RiskDictator_9,RiskDictator_10,RiskDictator_11,RiskDictator_12,RiskDictator_13,
+                          RiskDictator_14,RiskDictator_15,RiskDictator_16,
+                          RiskRecipient_1,RiskRecipient_2, RiskRecipient_3,RiskRecipient_4,RiskRecipient_5,RiskRecipient_6,RiskRecipient_7,
+                          RiskRecipient_8,RiskRecipient_9,RiskRecipient_10,RiskRecipient_11,RiskRecipient_12,RiskRecipient_13,
+                          RiskRecipient_14,RiskRecipient_15,RiskRecipient_16,
+                          ReplacementDictator_1,ReplacementDictator_2, ReplacementDictator_3,ReplacementDictator_4,ReplacementDictator_5,ReplacementDictator_6,ReplacementDictator_7,
+                          ReplacementDictator_8,ReplacementDictator_9,ReplacementDictator_10,ReplacementDictator_11,ReplacementDictator_12,ReplacementDictator_13,
+                          ReplacementDictator_14,ReplacementDictator_15,ReplacementDictator_16,
+                          ReplacementRecipient_1,ReplacementRecipient_2, ReplacementRecipient_3,ReplacementRecipient_4,ReplacementRecipient_5,ReplacementRecipient_6,ReplacementRecipient_7,
+                          ReplacementRecipient_8,ReplacementRecipient_9,ReplacementRecipient_10,ReplacementRecipient_11,ReplacementRecipient_12,ReplacementRecipient_13,
+                          ReplacementRecipient_14,ReplacementRecipient_15,ReplacementRecipient_16,
+                          winDictator_1,winDictator_2, winDictator_3,winDictator_4,winDictator_5,winDictator_6,winDictator_7,
+                          winDictator_8,winDictator_9,winDictator_10,winDictator_11,winDictator_12,winDictator_13,
+                          winDictator_14,winDictator_15,winDictator_16,
+                          winRecipient_1,winRecipient_2, winRecipient_3,winRecipient_4,winRecipient_5,winRecipient_6,winRecipient_7,
+                          winRecipient_8,winRecipient_9,winRecipient_10,winRecipient_11,winRecipient_12,winRecipient_13,
+                          winRecipient_14,winRecipient_15,winRecipient_16,
+                          give_1,give_2, give_3,give_4,give_5,give_6,give_7,
+                          give_8,give_9,give_10,give_11,give_12,give_13,
+                          give_14,give_15,give_16,
+                          transfer_1,transfer_2,transfer_3,transfer_4,transfer_5,transfer_6,transfer_7,transfer_8,
+                          transfer_9,transfer_10,transfer_11,transfer_12,transfer_13,transfer_14,
+                          transfer_15,transfer_16,
+                          numClicks_1,numClicks_2, numClicks_3,numClicks_4,numClicks_5,numClicks_6,numClicks_7,
+                          numClicks_8,numClicks_9,numClicks_10,numClicks_11,numClicks_12,numClicks_13,
+                          numClicks_14,numClicks_15,numClicks_16,
+                          round_1,round_2,round_3,round_4,round_5,round_6,round_7,
+                          round_8, round_9, round_10,round_11,round_12,round_13,round_14,round_15,round_16,
+                          risk_1,risk_2,risk_3,risk_4,risk_5,risk_6,risk_7,risk_8,risk_9,
+                          s$age,s$major,s$gender,s$religion,s$rel_group,
+                          s$income_fam,s$polintr,s$leftright,s$party,s$stfgov,
+                          s$gincdif,s$equalopt,s$sucess,s$instr,s$change,s$changes_reason)

> dat$`s$changes_reason`
  [1] ""                                                                                                                                               
  [2] ""                                                                                                                                               
  [3] ""                                                                                                                                               
  [4] "Ich habe in Teil 2 die Wahrscheinlichkeitsverteilung zu Beginn falschrum verstanden. "                                                          
  [5] ""                                                                                                                                               
  [6] ""                                                                                                                                               
  [7] ""                                                                                                                                               
  [8] "Unsicherheit, wegen der Gleichberechtigung"                                                                                                     
  [9] "Um ein bisschen fairer zu sein."                                                                                                                
 [10] "-"                                                                                                                                              
 [11] ""                                                                                                                                               
 [12] "Manchmal habe ich mit meiner gewünschten Verteilung gespielt. Eigentlich fand ich eine 50:50 Verteilung immer fair."                            
 [13] ""                                                                                                                                               
 [14] ""                                                                                                                                               
 [15] ""                                                                                                                                               
 [16] ""                                                                                                                                               
 [17] " die Wahrscheinlichkeit, dass ich 5 mal hintereinander die gleiche Anzahl von Tokens bekomme, ist fragwürdig"                                   
 [18] "Ich weiss nciht, ob es ihre Absicht war, aber das Incentievierungsmodell des Gegenüber ist so demotivierend, dass man sich höchstens noch lustl"
 [19] "je nach rollenverteilung"                                                                                                                       
 [20] "Ich dachte, man bekommt es im 2. Teil heimgezahlt, wenn man als Entscheidungsträger nicht abgibt"                                               
 [21] ""                                                                                                                                               
 [22] ""                                                                                                                                               
 [23] ""                                                                                                                                               
 [24] "in Teil 2 früher zur riskanten Lotterie wechseln"                                                                                               
 [25] ""                                                                                                                                               
 [26] ""                                                                                                                                               
 [27] "Man musste immer dasselbe tun, es wurde sehr schnell langweilig (zu viele Runden)"                                                              
 [28] "Ich hab eher nur rumprobiert. Bei einer zweiten Runde würde ich versuchen, eine sinnvolle Strategie zu verfolgen."                              
 [29] ""                                                                                                                                               
 [30] "Manchmal falsch gerechnet, die Schock WSK der Gegenpartei vergessen einzubeziehen"                                                              
 [31] ""                                                                                                                                               
 [32] ""                                                                                                                                               
 [33] ""                                                                                                                                               
 [34] ""                                                                                                                                               
 [35] "Ich würde nicht was verändert"                                                                                                                  
 [36] "ich würde keine vornehmen (bei mir selbst zumindest)"                                                                                           
 [37] ""                                                                                                                                               
 [38] ""                                                                                                                                               
 [39] ""                                                                                                                                               
 [40] ""                                                                                                                                               
 [41] ""                                                                                                                                               
 [42] ""                                                                                                                                               
 [43] "Hatte Glück in der Entscheider Gruppe zu sein ;)"                                                                                               
 [44] ""                                                                                                                                               
 [45] ""                                                                                                                                               
 [46] ""                                                                                                                                               
 [47] "-"                                                                                                                                              
 [48] ""                                                                                                                                               
 [49] ""                                                                                                                                               
 [50] ""                                                                                                                                               
 [51] "Mehr Anteile für das Gegenüber"                                                                                                                 
 [52] "habe die Instruktionen in einem Fall nicht genau gelesen"                                                                                       
 [53] "kein/geringer Einfluss des Gegenübers"                                                                                                          
 [54] ""                                                                                                                                               
 [55] ""                                                                                                                                               
 [56] ""                                                                                                                                               
 [57] ""                                                                                                                                               
 [58] ""                                                                                                                                               
 [59] ""                                                                                                                                               
 [60] ""                                                                                                                                               
 [61] ""                                                                                                                                               
 [62] "als blaue Gruppe hatte man keinen Einfluss und war ausgeliefert. Das Experiment hat bewirkt, dass ich nun enttäuscht von meinen Kommilitonnen " 
 [63] ""                                                                                                                                               
 [64] ""                                                                                                                                               
 [65] ""                                                                                                                                               
 [66] ""                                                                                                                                               
 [67] ""                                                                                                                                               
 [68] ""                                                                                                                                               
 [69] "-"                                                                                                                                              
 [70] ""                                                                                                                                               
 [71] ""                                                                                                                                               
 [72] "-"                                                                                                                                              
 [73] ""                                                                                                                                               
 [74] ""                                                                                                                                               
 [75] ""                                                                                                                                               
 [76] ""                                                                                                                                               
 [77] ""                                                                                                                                               
 [78] "damit wir andere Ergebisse bekommen"                                                                                                            
 [79] ""                                                                                                                                               
 [80] "würde früher anstatt 0% einen Teil abgeben "                                                                                                    
 [81] ""                                                                                                                                               
 [82] ""                                                                                                                                               
 [83] ""                                                                                                                                               
 [84] "Habe mich wohl nicht nach meinen ethischen Grundprinzipien entschieden. "                                                                       
 [85] ""                                                                                                                                               
 [86] ""                                                                                                                                               
 [87] ""                                                                                                                                               
 [88] "Änderungen würden in der Situation des Gegenübers überhaupt nichts bringen. Experiment mM sinnlos."                                             
 [89] "In der Position des Gegenübers hat man keine Chance, etwas zu beeinflussen."                                                                    
 [90] "Mir der Sinn der Entscheidung des Gegenübers nicht ganz klar. Normal würde dieser natürlich volle Umverteilung bevorzugen..."                   
 [91] ""                                                                                                                                               
 [92] ""                                                                                                                                               
 [93] ""                                                                                                                                               
 [94] ""                                                                                                                                               
 [95] ""                                                                                                                                               
 [96] "würde ich nicht, es gibt als entscheidungsträger hier eigentlich keinen grund geld abzugeben, man steht immer schlechter"                       
 [97] "-"                                                                                                                                              
 [98] ""                                                                                                                                               
 [99] "risikoreicher sein"                                                                                                                             
[100] "ich würde keine Änderungen vornehmen"                                                                                                           
[101] "Nicht, da meine Entscheidungen im Teil 1 unbedeutend waren"                                                                                     
[102] ""                                                                                                                                               
[103] ""                                                                                                                                               
[104] "-"                                                                                                                                              
[105] "-"                                                                                                                                              
[106] "Ich hätte von Anfang an nur darauf achten sollen, meinen Gewinn zu vergrößern"                                                                  
[107] ""                                                                                                                                               
[108] ""                                                                                                                                               
[109] "-"                                                                                                                                              
[110] ""                                                                                                                                               
[111] "Ich würde bei Teil B eher auf Option A setzen, da diese risikoarmer ist."                                                                       
[112] ""                                                                                                                                               
[113] ""                                                                                                                                               
[114] ""                                                                                                                                               
[115] ""                                                                                                                                               
[116] ""                                                                                                                                               
[117] ""                                                                                                                                               
[118] ""                                                                                                                                               
[119] ""                                                                                                                                               
[120] "keine"                                                                                                                                          
[121] ""                                                                                                                                               
[122] ""                                                                                                                                               
[123] ""                                                                                                                                               
[124] "würde keine Änderungen vornehmen"                                                                                                               
[125] ""                                                                                                                                               
[126] ""                                                                                                                                               
[127] ""                                                                                                                                               
[128] ""                                                                                                                                               
[129] ""                                                                                                                                               
[130] ""                                                                                                                                               
[131] ""                                                                                                                                               
[132] "im zweiten teil nicht richtig gelesen"                                                                                                          
[133] ""                                                                                                                                               
[134] ""                                                                                                                                               
[135] ""                                                                                                                                               
[136] "Eventuell wegen dem Gewissen"                                                                                                                   
[137] "Um ungleichheiten bei payoff minimal abzuändern, jedoch den Entscheider leicht bevorzugen"                                                      
[138] "ich würde für mehr gewinn für mich sorgen"                                                                                                      
[139] ""                                                                                                                                               
[140] "fairness"                                                                                                                                       
[141] ""                                                                                                                                               
[142] ""                                                                                                                                               
[143] "Gerechtigkeit"                                                                                                                                  
[144] ""                                                                                                                                               
[145] ""                                                                                                                                               
[146] "Weil gegen Ende meine Auszahlung höher wurde"                                                                                                   
[147] ""                                                                                                                                               
[148] ""                                                                                                                                               
[149] ""                                                                                                                                               
[150] ""                                                                                                                                               
[151] ""                                                                                                                                               
[152] ""                                                                                                                                               
[153] ""                                                                                                                                               
[154] ""                                                                                                                                               
[155] ""                                                                                                                                               
[156] "---"                                                                                                                                            
[157] ""                                                                                                                                               
[158] ""                                                                                                                                               
[159] ""                                                                                                                                               
[160] ""                                                                                                                                               
[161] ""                                                                                                                                               
[162] ""                                                                                                                                               
[163] ""                                                                                                                                               
[164] ""                                                                                                                                               
[165] ""                                                                                                                                               
[166] "Hängt davon ab ob man Entscheider ist oder nicht"                                                                                               
[167] "Ich konnte keine Entscheidungen treffen"                                                                                                        
[168] ""                                                                                                                                               
[169] ""                                                                                                                                               
[170] ""                                                                                                                                               
[171] ""                                                                                                                                               
[172] ""                                                                                                                                               
[173] ""                                                                                                                                               
[174] "Erst ab Versuch 4 mehr auf den Gegenüber geachtet"                                                                                              

> s$`EndowmentDictator[10]`
  [1]  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100
 [16]  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100
 [31]  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  8100  4050  4050  4050
 [46]  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050
 [61]  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050
 [76]  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050
 [91]  4050  4050 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150  4050
[106]  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050  4050 12150 12150
[121] 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150
[136] 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150
[151] 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150 12150
[166] 12150 12150 12150 12150 12150 12150 12150 12150 12150

> ##########################
> #Transfor data frame to to cross-time structure
> ##########################
> 
> names(dat)
  [1] "s$ID"                    "s$Date.x"                "s$`Role[1]`"            
  [4] "total_1"                 "total_2"                 "total_3"                
  [7] "total_4"                 "total_5"                 "total_6"                
 [10] "total_7"                 "total_8"                 "total_9"                
 [13] "total_10"                "total_11"                "total_12"               
 [16] "total_13"                "total_14"                "total_15"               
 [19] "total_16"                "EndowmentDictator_1"     "EndowmentDictator_2"    
 [22] "EndowmentDictator_3"     "EndowmentDictator_4"     "EndowmentDictator_5"    
 [25] "EndowmentDictator_6"     "EndowmentDictator_7"     "EndowmentDictator_8"    
 [28] "EndowmentDictator_9"     "EndowmentDictator_10"    "EndowmentDictator_11"   
 [31] "EndowmentDictator_12"    "EndowmentDictator_13"    "EndowmentDictator_14"   
 [34] "EndowmentDictator_15"    "EndowmentDictator_16"    "EndowmentRecipient_1"   
 [37] "EndowmentRecipient_2"    "EndowmentRecipient_3"    "EndowmentRecipient_4"   
 [40] "EndowmentRecipient_5"    "EndowmentRecipient_6"    "EndowmentRecipient_7"   
 [43] "EndowmentRecipient_8"    "EndowmentRecipient_9"    "EndowmentRecipient_10"  
 [46] "EndowmentRecipient_11"   "EndowmentRecipient_12"   "EndowmentRecipient_13"  
 [49] "EndowmentRecipient_14"   "EndowmentRecipient_15"   "EndowmentRecipient_16"  
 [52] "RiskDictator_1"          "RiskDictator_2"          "RiskDictator_3"         
 [55] "RiskDictator_4"          "RiskDictator_5"          "RiskDictator_6"         
 [58] "RiskDictator_7"          "RiskDictator_8"          "RiskDictator_9"         
 [61] "RiskDictator_10"         "RiskDictator_11"         "RiskDictator_12"        
 [64] "RiskDictator_13"         "RiskDictator_14"         "RiskDictator_15"        
 [67] "RiskDictator_16"         "RiskRecipient_1"         "RiskRecipient_2"        
 [70] "RiskRecipient_3"         "RiskRecipient_4"         "RiskRecipient_5"        
 [73] "RiskRecipient_6"         "RiskRecipient_7"         "RiskRecipient_8"        
 [76] "RiskRecipient_9"         "RiskRecipient_10"        "RiskRecipient_11"       
 [79] "RiskRecipient_12"        "RiskRecipient_13"        "RiskRecipient_14"       
 [82] "RiskRecipient_15"        "RiskRecipient_16"        "ReplacementDictator_1"  
 [85] "ReplacementDictator_2"   "ReplacementDictator_3"   "ReplacementDictator_4"  
 [88] "ReplacementDictator_5"   "ReplacementDictator_6"   "ReplacementDictator_7"  
 [91] "ReplacementDictator_8"   "ReplacementDictator_9"   "ReplacementDictator_10" 
 [94] "ReplacementDictator_11"  "ReplacementDictator_12"  "ReplacementDictator_13" 
 [97] "ReplacementDictator_14"  "ReplacementDictator_15"  "ReplacementDictator_16" 
[100] "ReplacementRecipient_1"  "ReplacementRecipient_2"  "ReplacementRecipient_3" 
[103] "ReplacementRecipient_4"  "ReplacementRecipient_5"  "ReplacementRecipient_6" 
[106] "ReplacementRecipient_7"  "ReplacementRecipient_8"  "ReplacementRecipient_9" 
[109] "ReplacementRecipient_10" "ReplacementRecipient_11" "ReplacementRecipient_12"
[112] "ReplacementRecipient_13" "ReplacementRecipient_14" "ReplacementRecipient_15"
[115] "ReplacementRecipient_16" "winDictator_1"           "winDictator_2"          
[118] "winDictator_3"           "winDictator_4"           "winDictator_5"          
[121] "winDictator_6"           "winDictator_7"           "winDictator_8"          
[124] "winDictator_9"           "winDictator_10"          "winDictator_11"         
[127] "winDictator_12"          "winDictator_13"          "winDictator_14"         
[130] "winDictator_15"          "winDictator_16"          "winRecipient_1"         
[133] "winRecipient_2"          "winRecipient_3"          "winRecipient_4"         
[136] "winRecipient_5"          "winRecipient_6"          "winRecipient_7"         
[139] "winRecipient_8"          "winRecipient_9"          "winRecipient_10"        
[142] "winRecipient_11"         "winRecipient_12"         "winRecipient_13"        
[145] "winRecipient_14"         "winRecipient_15"         "winRecipient_16"        
[148] "give_1"                  "give_2"                  "give_3"                 
[151] "give_4"                  "give_5"                  "give_6"                 
[154] "give_7"                  "give_8"                  "give_9"                 
[157] "give_10"                 "give_11"                 "give_12"                
[160] "give_13"                 "give_14"                 "give_15"                
[163] "give_16"                 "transfer_1"              "transfer_2"             
[166] "transfer_3"              "transfer_4"              "transfer_5"             
[169] "transfer_6"              "transfer_7"              "transfer_8"             
[172] "transfer_9"              "transfer_10"             "transfer_11"            
[175] "transfer_12"             "transfer_13"             "transfer_14"            
[178] "transfer_15"             "transfer_16"             "numClicks_1"            
[181] "numClicks_2"             "numClicks_3"             "numClicks_4"            
[184] "numClicks_5"             "numClicks_6"             "numClicks_7"            
[187] "numClicks_8"             "numClicks_9"             "numClicks_10"           
[190] "numClicks_11"            "numClicks_12"            "numClicks_13"           
[193] "numClicks_14"            "numClicks_15"            "numClicks_16"           
[196] "round_1"                 "round_2"                 "round_3"                
[199] "round_4"                 "round_5"                 "round_6"                
[202] "round_7"                 "round_8"                 "round_9"                
[205] "round_10"                "round_11"                "round_12"               
[208] "round_13"                "round_14"                "round_15"               
[211] "round_16"                "risk_1"                  "risk_2"                 
[214] "risk_3"                  "risk_4"                  "risk_5"                 
[217] "risk_6"                  "risk_7"                  "risk_8"                 
[220] "risk_9"                  "s$age"                   "s$major"                
[223] "s$gender"                "s$religion"              "s$rel_group"            
[226] "s$income_fam"            "s$polintr"               "s$leftright"            
[229] "s$party"                 "s$stfgov"                "s$gincdif"              
[232] "s$equalopt"              "s$sucess"                "s$instr"                
[235] "s$change"                "s$changes_reason"       

> dat_long<-reshape(dat, varying = c(4:211)
+                   , direction="long", idvar=c("`s$ID`"), 
+                   sep="_",timevar = "order")

> dat$`s$ID`
  [1]   1   2   3   4   5   6   7   8   9  10  11  12  13  14  15  16  17  18  19  20  21  22
 [23]  23  24  25  26  27  28  29  30  31  32  33  34  35  36  37  38  39  40  41  42  43  44
 [45]  45  46  47  48  49  50  51  52  53  54  55  56  57  58  59  60  61  62  63  64  65  66
 [67]  67  68  69  70  71  72  73  74  75  76  77  78  79  80  81  82  83  84  85  86  87  88
 [89]  89  90  91  92  93  94  95  96  97  98  99 100 101 102 103 104 105 106 107 108 109 110
[111] 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132
[133] 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154
[155] 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174

> dat_long<-dat_long[order(dat_long$`s$ID`),]

> #s$age,s$major,s$gender,s$religion,s$rel_group,s$income_fam,s$polintr,s$leftright,s$party,s$stfgov,
> #s$gincdif,s$equalopt,s$sucess,s$instr,s$change,s$changes_reason
> 
> 
> names(dat_long)
 [1] "s$ID"                 "s$Date.x"             "s$`Role[1]`"         
 [4] "risk_1"               "risk_2"               "risk_3"              
 [7] "risk_4"               "risk_5"               "risk_6"              
[10] "risk_7"               "risk_8"               "risk_9"              
[13] "s$age"                "s$major"              "s$gender"            
[16] "s$religion"           "s$rel_group"          "s$income_fam"        
[19] "s$polintr"            "s$leftright"          "s$party"             
[22] "s$stfgov"             "s$gincdif"            "s$equalopt"          
[25] "s$sucess"             "s$instr"              "s$change"            
[28] "s$changes_reason"     "order"                "total"               
[31] "EndowmentDictator"    "EndowmentRecipient"   "RiskDictator"        
[34] "RiskRecipient"        "ReplacementDictator"  "ReplacementRecipient"
[37] "winDictator"          "winRecipient"         "give"                
[40] "transfer"             "numClicks"            "round"               
[43] "`s$ID`"              

> table(dat_long$`s$gender`)

   0    1 
1296 1488 

> dat$change
NULL

> dat_long$`s$Date.x`
   [1] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
   [7] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
  [13] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
  [19] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
  [25] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
  [31] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
  [37] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
  [43] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
  [49] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
  [55] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
  [61] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
  [67] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
  [73] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
  [79] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
  [85] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
  [91] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
  [97] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
 [103] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
 [109] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
 [115] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
 [121] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
 [127] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
 [133] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
 [139] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
 [145] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
 [151] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
 [157] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
 [163] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
 [169] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
 [175] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
 [181] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
 [187] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
 [193] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
 [199] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
 [205] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
 [211] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
 [217] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
 [223] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
 [229] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
 [235] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
 [241] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
 [247] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
 [253] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
 [259] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
 [265] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
 [271] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
 [277] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
 [283] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
 [289] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
 [295] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
 [301] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
 [307] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
 [313] "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020" "170330_1020"
 [319] "170330_1020" "170330_1020" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [325] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [331] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [337] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [343] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [349] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [355] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [361] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [367] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [373] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [379] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [385] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [391] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [397] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [403] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [409] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [415] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [421] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [427] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [433] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [439] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [445] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [451] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [457] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [463] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [469] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [475] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [481] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [487] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [493] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [499] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [505] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [511] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [517] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [523] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [529] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [535] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [541] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [547] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [553] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [559] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [565] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [571] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [577] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [583] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [589] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [595] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [601] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [607] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [613] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [619] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [625] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [631] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [637] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [643] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [649] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [655] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [661] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [667] "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126" "170330_1126"
 [673] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [679] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [685] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [691] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [697] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [703] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [709] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [715] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [721] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [727] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [733] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [739] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [745] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [751] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [757] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [763] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [769] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [775] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [781] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [787] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [793] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [799] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [805] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [811] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [817] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [823] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [829] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [835] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [841] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [847] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [853] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [859] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [865] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [871] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [877] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [883] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [889] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [895] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [901] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [907] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [913] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [919] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [925] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [931] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [937] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [943] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [949] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [955] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [961] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [967] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [973] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [979] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [985] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [991] "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [997] "170403_0935" "170403_0935" "170403_0935" "170403_0935"
 [ reached getOption("max.print") -- omitted 1784 entries ]

> #Change colnames
> colnames(dat_long) <- c("ID","Session","Role","risk_1","risk_2","risk_3","risk_4","risk_5"
+                         ,"risk_6","risk_7","risk_8","risk_9","age","major","gender","religion",
+                         "rel_group","income_fam","polintr","leftright","party","satisfy_gov",
+                         "redistribution","equal_opp","success","instructions","change","change_reason",
+                         "order","total","EndowmentDictator","EndowmentRecipient","RiskDictator",
+                         "RiskRecipient","ReplacementDictator","ReplacementRecipient","winDictator",
+                         "winRecipient","give","transfer","numclicks","round","ID2")

> table(dat_long$gender)

   0    1 
1296 1488 

> ##########################
> 
> rm(dat)

> ##########################
> #Recode data
> ##########################
> 
> #Expected Endowment
> dat_long$EU_dict<-(1-dat_long$RiskDictator)*dat_long$EndowmentDictator+
+   dat_long$RiskDictator*dat_long$ReplacementDictator*dat_long$EndowmentDictator

> dat_long$EU_recipient<-(1-dat_long$RiskRecipient)*dat_long$EndowmentRecipient+
+   dat_long$RiskRecipient*dat_long$ReplacementRecipient*dat_long$EndowmentRecipient

> ##########################
> 
> 
> #Decision situation
> dat_long$situation<-NA

> dat_long$situation[dat_long$total==4700&dat_long$RiskRecipient==.2&dat_long$RiskDictator==.2&
+                      dat_long$ReplacementRecipient==.2&dat_long$ReplacementDictator==.8]<-1

> dat_long$situation[dat_long$total==4700&dat_long$RiskRecipient==.2&dat_long$RiskDictator==.2&
+                      dat_long$ReplacementRecipient==.8&dat_long$ReplacementDictator==.8]<-2

> dat_long$situation[dat_long$total==4700&dat_long$RiskRecipient==0&dat_long$RiskDictator==0&
+                      dat_long$ReplacementRecipient==1&dat_long$ReplacementDictator==1]<-3

> dat_long$situation[dat_long$total==9400&dat_long$RiskRecipient==.025&dat_long$RiskDictator==.025&
+                      dat_long$ReplacementRecipient==.2&dat_long$ReplacementDictator==.2]<-4

> dat_long$situation[dat_long$total==9400&dat_long$RiskRecipient==.025&dat_long$RiskDictator==.025&
+                      dat_long$ReplacementRecipient==.8&dat_long$ReplacementDictator==.8]<-5

> dat_long$situation[dat_long$total==9400&dat_long$RiskRecipient==.2&dat_long$RiskDictator==.2&
+                      dat_long$ReplacementRecipient==.2&dat_long$ReplacementDictator==.2]<-6

> dat_long$situation[dat_long$total==9400&dat_long$RiskRecipient==.2&dat_long$RiskDictator==.2&
+                      dat_long$ReplacementRecipient==.2&dat_long$ReplacementDictator==.8]<-7

> dat_long$situation[dat_long$total==9400&dat_long$RiskRecipient==.2&dat_long$RiskDictator==.2&
+                      dat_long$ReplacementRecipient==.8&dat_long$ReplacementDictator==.8]<-8

> dat_long$situation[dat_long$total==9400&dat_long$RiskRecipient==.2&dat_long$RiskDictator==.2&
+                      dat_long$ReplacementRecipient==.8&dat_long$ReplacementDictator==.2]<-9

> dat_long$situation[dat_long$total==9400&dat_long$RiskRecipient==0&dat_long$RiskDictator==0&
+                      dat_long$ReplacementRecipient==1&dat_long$ReplacementDictator==1]<-10

> dat_long$situation[dat_long$total==13450&dat_long$RiskRecipient==.2&dat_long$RiskDictator==.2&
+                      dat_long$ReplacementRecipient==.2&dat_long$ReplacementDictator==.2]<-11

> dat_long$situation[dat_long$total==13450&dat_long$RiskRecipient==.2&dat_long$RiskDictator==.2&
+                      dat_long$ReplacementRecipient==.2&dat_long$ReplacementDictator==.8]<-12

> dat_long$situation[dat_long$total==13450&dat_long$RiskRecipient==.2&dat_long$RiskDictator==.2&
+                      dat_long$ReplacementRecipient==.8&dat_long$ReplacementDictator==.2]<-13

> dat_long$situation[dat_long$total==13450&dat_long$RiskRecipient==0&dat_long$RiskDictator==0&
+                      dat_long$ReplacementRecipient==1&dat_long$ReplacementDictator==1]<-14

> dat_long$situation[dat_long$total==9400&dat_long$RiskRecipient==.2&dat_long$RiskDictator==.025&
+                      dat_long$ReplacementRecipient==.2&dat_long$ReplacementDictator==.8]<-15

> dat_long$situation[dat_long$total==13450&dat_long$RiskRecipient==.2&dat_long$RiskDictator==.025&
+                      dat_long$ReplacementRecipient==.2&dat_long$ReplacementDictator==.2]<-16

> dat_long$situation
   [1]  5  8 13  2 12 16 11 15  7  9  6 10  1  3 14  4  5  8 13  2 12 16 11 15  7  9  6 10  1
  [30]  3 14  4  5  8 13  2 12 16 11 15  7  9  6 10  1  3 14  4  5  8 13  2 12 16 11 15  7  9
  [59]  6 10  1  3 14  4  5  8 13  2 12 16 11 15  7  9  6 10  1  3 14  4  5  8 13  2 12 16 11
  [88] 15  7  9  6 10  1  3 14  4  5  8 13  2 12 16 11 15  7  9  6 10  1  3 14  4  5  8 13  2
 [117] 12 16 11 15  7  9  6 10  1  3 14  4  5  8 13  2 12 16 11 15  7  9  6 10  1  3 14  4  5
 [146]  8 13  2 12 16 11 15  7  9  6 10  1  3 14  4  5  8 13  2 12 16 11 15  7  9  6 10  1  3
 [175] 14  4  5  8 13  2 12 16 11 15  7  9  6 10  1  3 14  4  5  8 13  2 12 16 11 15  7  9  6
 [204] 10  1  3 14  4  5  8 13  2 12 16 11 15  7  9  6 10  1  3 14  4  5  8 13  2 12 16 11 15
 [233]  7  9  6 10  1  3 14  4  5  8 13  2 12 16 11 15  7  9  6 10  1  3 14  4  5  8 13  2 12
 [262] 16 11 15  7  9  6 10  1  3 14  4  5  8 13  2 12 16 11 15  7  9  6 10  1  3 14  4  5  8
 [291] 13  2 12 16 11 15  7  9  6 10  1  3 14  4  5  8 13  2 12 16 11 15  7  9  6 10  1  3 14
 [320]  4 13  2 14  3  4  7  9 12  6  8 16 15 11 10  5  1 13  2 14  3  4  7  9 12  6  8 16 15
 [349] 11 10  5  1 13  2 14  3  4  7  9 12  6  8 16 15 11 10  5  1 13  2 14  3  4  7  9 12  6
 [378]  8 16 15 11 10  5  1 13  2 14  3  4  7  9 12  6  8 16 15 11 10  5  1 13  2 14  3  4  7
 [407]  9 12  6  8 16 15 11 10  5  1 13  2 14  3  4  7  9 12  6  8 16 15 11 10  5  1 13  2 14
 [436]  3  4  7  9 12  6  8 16 15 11 10  5  1 13  2 14  3  4  7  9 12  6  8 16 15 11 10  5  1
 [465] 13  2 14  3  4  7  9 12  6  8 16 15 11 10  5  1 13  2 14  3  4  7  9 12  6  8 16 15 11
 [494] 10  5  1 13  2 14  3  4  7  9 12  6  8 16 15 11 10  5  1 13  2 14  3  4  7  9 12  6  8
 [523] 16 15 11 10  5  1 13  2 14  3  4  7  9 12  6  8 16 15 11 10  5  1 13  2 14  3  4  7  9
 [552] 12  6  8 16 15 11 10  5  1 13  2 14  3  4  7  9 12  6  8 16 15 11 10  5  1 13  2 14  3
 [581]  4  7  9 12  6  8 16 15 11 10  5  1 13  2 14  3  4  7  9 12  6  8 16 15 11 10  5  1 13
 [610]  2 14  3  4  7  9 12  6  8 16 15 11 10  5  1 13  2 14  3  4  7  9 12  6  8 16 15 11 10
 [639]  5  1 13  2 14  3  4  7  9 12  6  8 16 15 11 10  5  1 13  2 14  3  4  7  9 12  6  8 16
 [668] 15 11 10  5  1  9 11  3  7 14 10 13  4  1  2  6  5 16 15 12  8  9 11  3  7 14 10 13  4
 [697]  1  2  6  5 16 15 12  8  9 11  3  7 14 10 13  4  1  2  6  5 16 15 12  8  9 11  3  7 14
 [726] 10 13  4  1  2  6  5 16 15 12  8  9 11  3  7 14 10 13  4  1  2  6  5 16 15 12  8  9 11
 [755]  3  7 14 10 13  4  1  2  6  5 16 15 12  8  9 11  3  7 14 10 13  4  1  2  6  5 16 15 12
 [784]  8  9 11  3  7 14 10 13  4  1  2  6  5 16 15 12  8  9 11  3  7 14 10 13  4  1  2  6  5
 [813] 16 15 12  8  9 11  3  7 14 10 13  4  1  2  6  5 16 15 12  8  9 11  3  7 14 10 13  4  1
 [842]  2  6  5 16 15 12  8  9 11  3  7 14 10 13  4  1  2  6  5 16 15 12  8  9 11  3  7 14 10
 [871] 13  4  1  2  6  5 16 15 12  8  9 11  3  7 14 10 13  4  1  2  6  5 16 15 12  8  9 11  3
 [900]  7 14 10 13  4  1  2  6  5 16 15 12  8  9 11  3  7 14 10 13  4  1  2  6  5 16 15 12  8
 [929]  9 11  3  7 14 10 13  4  1  2  6  5 16 15 12  8  9 11  3  7 14 10 13  4  1  2  6  5 16
 [958] 15 12  8  9 11  3  7 14 10 13  4  1  2  6  5 16 15 12  8  9 11  3  7 14 10 13  4  1  2
 [987]  6  5 16 15 12  8  9 11  3  7 14 10 13  4
 [ reached getOption("max.print") -- omitted 1784 entries ]

> ##########################
> 
> 
> #Risk aversion type
> table(dat_long$risk_1==1&dat_long$risk_2==1&
+   dat_long$risk_3==1&dat_long$risk_4==1&
+   dat_long$risk_5==1&dat_long$risk_6==1&
+   dat_long$risk_7==1&dat_long$risk_8==1
+ &dat_long$risk_9==1)

FALSE  TRUE 
 2624   160 

> table(dat_long$risk_aversion)
< table of extent 0 >

> dat_long$risk_aversion<-NA

> dat_long$risk_aversion[dat_long$risk_1==2&dat_long$risk_2==2&
+                          dat_long$risk_3==2&dat_long$risk_4==2&
+                          dat_long$risk_5==2&dat_long$risk_6==2&
+                          dat_long$risk_7==2&dat_long$risk_8==2
+                        &dat_long$risk_9==2]<--1.72

> dat_long$risk_aversion[dat_long$risk_1==1&dat_long$risk_2==2&
+                          dat_long$risk_3==2&dat_long$risk_4==2&
+                          dat_long$risk_5==2&dat_long$risk_6==2&
+                          dat_long$risk_7==2&dat_long$risk_8==2
+                        &dat_long$risk_9==2]<--.95

> dat_long$risk_aversion[dat_long$risk_1==1&dat_long$risk_2==1&
+                          dat_long$risk_3==2&dat_long$risk_4==2&
+                          dat_long$risk_5==2&dat_long$risk_6==2&
+                          dat_long$risk_7==2&dat_long$risk_8==2
+                        &dat_long$risk_9==2]<--.49

> dat_long$risk_aversion[dat_long$risk_1==1&dat_long$risk_2==1&
+                          dat_long$risk_3==1&dat_long$risk_4==2&
+                          dat_long$risk_5==2&dat_long$risk_6==2&
+                          dat_long$risk_7==2&dat_long$risk_8==2
+                        &dat_long$risk_9==2]<--.15

> dat_long$risk_aversion[dat_long$risk_1==1&dat_long$risk_2==1&
+                          dat_long$risk_3==1&dat_long$risk_4==1&
+                          dat_long$risk_5==2&dat_long$risk_6==2&
+                          dat_long$risk_7==2&dat_long$risk_8==2
+                        &dat_long$risk_9==2]<-.15

> dat_long$risk_aversion[dat_long$risk_1==1&dat_long$risk_2==1&
+                          dat_long$risk_3==1&dat_long$risk_4==1&
+                          dat_long$risk_5==1&dat_long$risk_6==2&
+                          dat_long$risk_7==2&dat_long$risk_8==2
+                        &dat_long$risk_9==2]<-.41

> dat_long$risk_aversion[dat_long$risk_1==1&dat_long$risk_2==1&
+                          dat_long$risk_3==1&dat_long$risk_4==1&
+                          dat_long$risk_5==1&dat_long$risk_6==1&
+                          dat_long$risk_7==2&dat_long$risk_8==2
+                        &dat_long$risk_9==2]<-.68

> dat_long$risk_aversion[dat_long$risk_1==1&dat_long$risk_2==1&
+                          dat_long$risk_3==1&dat_long$risk_4==1&
+                          dat_long$risk_5==1&dat_long$risk_6==1&
+                          dat_long$risk_7==1&dat_long$risk_8==2
+                        &dat_long$risk_9==2]<-.97

> dat_long$risk_aversion[dat_long$risk_1==1&dat_long$risk_2==1&
+                          dat_long$risk_3==1&dat_long$risk_4==1&
+                          dat_long$risk_5==1&dat_long$risk_6==1&
+                          dat_long$risk_7==1&dat_long$risk_8==1
+                        &dat_long$risk_9==2]<-1.37

> dat_long$risk_aversion[dat_long$risk_1==1&dat_long$risk_2==1&
+                          dat_long$risk_3==1&dat_long$risk_4==1&
+                          dat_long$risk_5==1&dat_long$risk_6==1&
+                          dat_long$risk_7==1&dat_long$risk_8==1
+                        &dat_long$risk_9==1]<-4

> ##########################
> 
> 
> ##########################
> #Save data
> ##########################
> 
> save(dat_long,file="dataLab_SocialInsurance.Rda")

> ############################
> 
> 
> 
> 

> ################
> #PSRM: Explaining Support for Redistribution: Social Insurance Systems and Fairness
> #
> #Experimental Data
> #Part II: Recode
> #
> #Verena Fetscher
> #July 2022
> ####################
> 
> 
> ##########################
> #Load data file
> ##########################
> 
> load("dataLab_SocialInsurance.Rda")

> df<-dat_long

> rm(dat_long)

> ##########################
> #Recode data
> ##########################
> 
> #Recode negative value in give to 0
> #(slider could be moves to value slightly below 0)
> df$give_new<-df$give

> df$give_new[df$give_new<0]<-0

> ##########################
> 
> 
> #Weight transfer shares in order to adjust for changes in inequality level
> df$give_weight<-df$give_new/(
+   ((df$EndowmentDictator-df$EndowmentRecipient)/2)/
+     df$EndowmentDictator)

> ##########################
> 
> 
> ##########################
> #Recode survey responses
> ##########################
> 
> #Age
> summary(as.numeric(as.character(df$age)))
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max.    NA's 
  18.00   20.00   21.50   22.73   24.00   59.00      64 

> df$age<-as.numeric(as.character(df$age))

> summary(df$age)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max.    NA's 
  18.00   20.00   21.50   22.73   24.00   59.00      64 

> ##########################
> 
> 
> #Gender
> #1 female
> table(as.numeric(as.character(df$gender)))

   0    1 
1296 1488 

> df$gender<-as.numeric(as.character(df$gender))

> summary(df$gender)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
 0.0000  0.0000  1.0000  0.5345  1.0000  1.0000 

> ##########################
> 
> 
> #Religion
> #Geh?ren Sie einer Religionsgemeinschaft an?
> #0 ja
> #1 nein
> table(as.numeric(as.character(df$religion)))

   0    1 
1408 1344 

> df$religion<-as.numeric(as.character(df$religion))

> summary(df$religion)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max.    NA's 
 0.0000  0.0000  0.0000  0.4884  1.0000  1.0000      32 

> ##########################
> 
> 
> #Family income
> #6. Was beschreibt am besten, wie Sie das gegenw?rtige 
> #Einkommen Ihrer Familie beurteilen? Wir k?nnen...
> #1 sehr bequem leben
> # bequem leben
> # zurechtkommen
> # schwer zurechtkommen
> # sehr schwer zurechtk.
> # wei? nicht
> table(as.numeric(as.character(df$income_fam)))

   1    2    3    4    5    6 
 400 1232  896  128   64   48 

> df$income_fam<-as.numeric(as.character(df$income_fam))

> df$income_fam[df$income_fam==6]<-NA

> table(df$income_fam)

   1    2    3    4    5 
 400 1232  896  128   64 

> ##########################
> 
> 
> #Political interest
> #7. Wie sehr interessieren Sie sich f?r Politik?
> #1 sehr interessiert
> # ziemlich interessiert
> # wenig interessiert
> # ?berhaupt nicht interessiert
> # wei? nicht
> table(as.numeric(as.character(df$polint)))

   1    2    3    4    5 
 752 1168  688  112   32 

> df$polint<-as.numeric(as.character(df$polint))

> df$polint[df$polint==5]<-NA

> table(df$polint)

   1    2    3    4 
 752 1168  688  112 

> ##########################
> 
> 
> #Leftright
> #8. Auf einer Skala von 0 bis 10, wobei 0, politisch gesehen, 
> #"extrem links" und 10 "extrem rechts" bedeutet, wie w?rden 
> #Sie sich selbst politisch einordnen?
> #0 links
> #9 rechts
> table(as.numeric(as.character(df$leftright)))

  0   1   2   3   4   5   6   7   8   9 
 48  80 256 496 576 640 400 144  80  16 

> df$leftright<-as.numeric(as.character(df$leftright))

> df$leftright<-df$leftright+1

> table(df$leftright)

  1   2   3   4   5   6   7   8   9  10 
 48  80 256 496 576 640 400 144  80  16 

> ##########################
> 
> 
> #Redistribution preferences
> #11. Wie sehr stimmen Sie der folgenenden Aussage zu: 
> #Der Staat sollte Ma?nahmen ergreifen, um Einkommensunterschiede zu verringern?
> #1 stimme stark zu
> #stimme zu
> #weder noch
> #lehne ab
> #lehne stark ab
> #6 wei? nicht
> table(as.numeric(as.character(df$redistribution)))

   1    2    3    4    5    6 
 336 1392  560  336   96   48 

> df$redistribution<-as.numeric(as.character(df$redistribution))

> df$redistribution[df$redistribution==6]<-NA

> table(df$redistribution)

   1    2    3    4    5 
 336 1392  560  336   96 

> ##########################
> 
> 
> #Instructions
> #13. Zur?ck zum Experiment. Auf einer Skala von 1 bis 10, 
> #f?r wie verst?ndlich halten Sie die Instruktionen zu diesem Experiment?
> #1 sehr verst?ndlich
> #10 sehr verwirrend
> table(as.numeric(as.character(df$instructions)))

  1   2   3   4   5   6   7   8   9 
880 688 496 144 144 128 160  96  32 

> df$instructions<-as.numeric(as.character(df$instructions))

> summary(df$instructions)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max.    NA's 
  1.000   1.000   2.000   2.884   4.000   9.000      16 

> ##########################
> 
> 
> #14. Wenn Sie noch einmal teilnehmen k?nnten, wie sehr w?rden Sie Ihre Entscheidungen 
> #im Gro?en und Ganzen ab?ndern?
> #1 sehr stark
> #6 ?berhaupt nicht
> table(as.numeric(as.character(df$change)))

   1    2    3    4    5    6 
  32   64  336  448  544 1360 

> df$change<-as.numeric(as.character(df$change))

> table(df$change)

   1    2    3    4    5    6 
  32   64  336  448  544 1360 

> ##########################
> 
> 
> table(df$major)

                                                             
                                                          16 
                                       Angewandte Informatik 
                                                          32 
                                                   Anglistik 
                                                          16 
Anglistik & Politik- und Wirtschaftswissenschaften (lehramt) 
                                                          16 
                Anglistik und germanistik im Kulturvergleich 
                                                          16 
                                          B. Sc. Psychologie 
                                                          16 
             Bachelor Kultur und Wirtschaft: Romanistik, VWL 
                                                          16 
                   Bachelor Kultur&Wirtschaft: Anglistik/BWL 
                                                          16 
                                              BaKuWi MKW BWL 
                                                          16 
            BaKuWi: Romanistik: Italienisch mit Sachfach BWL 
                                                          16 
                                    Betreibswirtschaftslehre 
                                                          16 
                                    Betriebswirtschaftslehre 
                                                          96 
                              Betriebswirtschaftslehre B.Sc. 
                                                          16 
                                      Bildungswissenschaften 
                                                          16 
                                                         bio 
                                                          16 
                                                    Biologie 
                                                          16 
                                                         bwl 
                                                          16 
                                                         BWL 
                                                         432 
                                               BWL im Master 
                                                          16 
                                                  Econcomics 
                                                          16 
                                                   Economics 
                                                         144 
                                    Economics und Geographie 
                                                          16 
                                      Erziehungswissenschaft 
                                                          16 
                                        früher 3 Sem. Psych. 
                                                          16 
                                                 Germanistik 
                                                          16 
                                         Germanistik mit Bwl 
                                                          16 
                                                  Informatik 
                                                          64 
                                                        Jura 
                                                         128 
                                        Konferenzdolmetschen 
                                                          16 
                                                     MaKuWi  
                                                          16 
                                          MaKuWi Philosophie 
                                                          16 
                                                  Management 
                                                          16 
                                        Master in Management 
                                                          16 
                                           Master Management 
                                                          16 
                                                  Mathematik 
                                                          64 
                      Medien- und Kommunikationswissenschaft 
                                                          16 
                                                     MMM BWL 
                                                          16 
                                   Molekulare Biotechnologie 
                                                          16 
                                                 Philosophie 
                                                          16 
                                                      Physik 
                                                          64 
                                         politikwissenschaft 
                                                          16 
                                         Politikwissenschaft 
                                                          64 
                                         Politische Ökonomik 
                                                          16 
                                     Politische Wissenschaft 
                                                          32 
                                     POLITOLOGIE/PSYCHOLOGIE 
                                                          16 
                                                        PoWi 
                                                          16 
                                                 Psychologie 
                                                          80 
                                          Rechtswissenschaft 
                                                          32 
                                        Rechtswissenschaften 
                                                          16 
                                 Rechtswissenschaften (Jura) 
                                                          16 
                                                  Romanistik 
                                                          16 
                                             Sinologie + VWL 
                                                          16 
                                                  Soziologie 
                                                         128 
                                    Übersetzungswissenschaft 
                                                          32 
                                  Übersetzungswissenschaften 
                                                          16 
                                            Unternehmensjura 
                                                          80 
                                      Unternehmensjurist LLB 
                                                          16 
                                       Volkswirtschaftslehre 
                                                          32 
                                Vorderasiatische Archäologie 
                                                          16 
                                                         vwl 
                                                          16 
                                                         VWL 
                                                         272 
                                                VWL, Politik 
                                                          16 
                                                      Wipaed 
                                                          16 
                                         Wirschaftspadagögik 
                                                          16 
                                       Wirtschaftsinformatik 
                                                          32 
                                     Wirtschaftsmathemathiuk 
                                                          16 
                                       Wirtschaftsmathematik 
                                                          16 
                                        Wirtschaftspädagogig 
                                                          16 
                                        Wirtschaftspädagogik 
                                                         160 
                                                       wiüäd 
                                                          16 

> ##########################
> #Save data
> ##########################
> 
> save(df,file="dataLab_SocialInsurance_complete.Rda")
